[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp epa-file.el
From: |
Daiki Ueno |
Subject: |
[Emacs-diffs] emacs/lisp epa-file.el |
Date: |
Wed, 17 Dec 2008 02:33:12 +0000 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp epa-file.el,
Daiki Ueno <=