mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

* epa-file.el (epa-file-insert-file-contents): Set

Browse Source 
buffer-file-name before decrypting a file.
This commit is contained in:
Daiki Ueno 2008-12-17 02:33:12 +00:00
parent bf46b4d428
commit 2cb35a563b
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-12-17 Daiki Ueno <ueno@unixuser.org>
* epa-file.el (epa-file-insert-file-contents): Set
buffer-file-name before decrypting a file.
2008-12-16 Juanma Barranquero <lekktu@gmail.com>
* server.el (server-start): If unable to start the server,

7
lisp/epa-file.el
View File

@ -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,9 +141,8 @@
(setq length (- (point-max) (point-min))))
(if replace
(delete-region (point) (point-max)))
(when visit
(setq buffer-file-name file)
(set-visited-file-modtime))))
(if visit
(set-visited-file-modtime))))
(if (and local-copy
(file-exists-p local-copy))
(delete-file local-copy)))