mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Daiki Ueno <ueno at unixuser.org>

Browse source 
(epa-file-handler): Restore 2008-03-16T04:04:15Z!mwolson@gnu.org version; previous change was buggy
patch.
This commit is contained in:
Glenn Morris 2008-04-28 07:16:36 +00:00
parent 90fce9106c
commit dbc9f96d82
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/epa-file.el
View file

@ -124,15 +124,12 @@ May either be a string or a list of strings.")
(epa-passphrase-callback-function context key-id nil)))
(defun epa-file-handler (operation &rest args)
;; (save-match-data
;; (let ((op (get operation 'epa-file)))
;; (if (and op
;; (if (and (eq operation 'insert-file-contents)
;; (y-or-n-p ""
;; (apply op args)
;; (epa-file-run-real-handler operation args)))))
nil)
(save-match-data
(let ((op (get operation 'epa-file)))
(if op
(apply op args)
(epa-file-run-real-handler operation args)))))
(defun epa-file-run-real-handler (operation args)
(let ((inhibit-file-name-handlers
(cons 'epa-file-handler