mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Fix typo and comment.

Browse Source
This commit is contained in:
Daiki Ueno 2010-07-25 20:50:51 +09:00
parent 4f195cf704
commit 192cfe779a
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -353,7 +353,7 @@
* epa-file.el (epa-file-error, epa-file--find-file-not-found-function) * epa-file.el (epa-file-error, epa-file--find-file-not-found-function)
(epa-file-insert-file-contents): Hack to prevent (epa-file-insert-file-contents): Hack to prevent
find-file from opening empty buffer when decryptin failed find-file from opening empty buffer when decryption failed
(bug#6568). (bug#6568).
2010-07-07 Agustín Martín <agustin.martin@hispalinux.es> 2010-07-07 Agustín Martín <agustin.martin@hispalinux.es>

8
lisp/epa-file.el
View File

@ -139,11 +139,11 @@ way."
(error (error
(if (setq entry (assoc file epa-file-passphrase-alist)) (if (setq entry (assoc file epa-file-passphrase-alist))
(setcdr entry nil)) (setcdr entry nil))
;; Hack to prevent find-file from opening empty buffer
;; when decryption failed (bug#6568). See the place
;; where `find-file-not-found-functions' are called in
;; `find-file-noselect-1'.
(when (file-exists-p local-file) (when (file-exists-p local-file)
;; Hack to prevent find-file from opening empty buffer
;; when decryption failed (bug#6568). See the place
;; where `find-file-not-found-functions' are called in
;; `find-file-noselect-1'.
(make-local-variable 'epa-file-error) (make-local-variable 'epa-file-error)
(setq epa-file-error error) (setq epa-file-error error)
(add-hook 'find-file-not-found-functions (add-hook 'find-file-not-found-functions