martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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