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

(epa-file-handler): Comment out, does not compile.

Browse source
This commit is contained in:
Dan Nicolaescu 2008-04-27 20:53:34 +00:00
parent 6e61fbe177
commit dc062440cc
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/epa-file.el
View file

@ -124,15 +124,15 @@ 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)
;; (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)))))
;; (y-or-n-p ""
;; (apply op args)
;; (epa-file-run-real-handler operation args)))))
nil)
(defun epa-file-run-real-handler (operation args)
(let ((inhibit-file-name-handlers
(cons 'epa-file-handler