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

Fix error when loading a new, non-existent foo.gpg file

Browse Source 
* lisp/epa-file.el (epa-file-insert-file-contents): Propagate the
correct error upwards (bug introduced by fixing bug#3829, and
messing up where the `when' form ended).
Reported by "Herbert J. Skuhra" <herbert@gojira.at>.
This commit is contained in:
Lars Ingebrigtsen 2020-08-24 20:50:08 +02:00
parent 9c04760f16
commit 0980e1f537
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/epa-file.el
View File

@ -175,9 +175,9 @@ encryption is used."
(setq-local epa-file-error error) (setq-local epa-file-error error)
(add-hook 'find-file-not-found-functions (add-hook 'find-file-not-found-functions
'epa-file--find-file-not-found-function 'epa-file--find-file-not-found-function
nil t) nil t)))
(signal (if exists 'file-error 'file-missing) (signal (if exists 'file-error 'file-missing)
(cons "Opening input file" (cdr error)))))))) (cons "Opening input file" (cdr error))))))
(set-buffer buf) ;In case timer/filter changed/killed it (bug#16029)! (set-buffer buf) ;In case timer/filter changed/killed it (bug#16029)!
(setq-local epa-file-encrypt-to (setq-local epa-file-encrypt-to
(mapcar #'car (epg-context-result-for (mapcar #'car (epg-context-result-for