[Emacs-diffs] emacs/lisp epa-file.el

[Daiki Ueno]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Daiki Ueno <ueno>       08/12/17 02:33:12

Modified files:
        lisp           : epa-file.el 

Log message:
        * epa-file.el (epa-file-insert-file-contents): Set
        buffer-file-name before decrypting a file.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/epa-file.el?cvsroot=emacs&r1=1.15&r2=1.16

Patches:
Index: epa-file.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/epa-file.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- epa-file.el 10 Dec 2008 01:35:39 -0000      1.15
+++ epa-file.el 17 Dec 2008 02:33:12 -0000      1.16
@@ -110,6 +110,8 @@
         (local-file (or local-copy file))
         (context (epg-make-context))
         string length entry)
+    (if visit
+       (setq buffer-file-name file))
     (epg-context-set-passphrase-callback
      context
      (cons #'epa-file-passphrase-callback-function
@@ -139,8 +141,7 @@
              (setq length (- (point-max) (point-min))))
            (if replace
                (delete-region (point) (point-max)))
-           (when visit
-             (setq buffer-file-name file)
+           (if visit
              (set-visited-file-modtime))))
       (if (and local-copy
               (file-exists-p local-copy))