Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 06:17:34 +00:00
Code Issues Projects Releases Packages 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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2008-04-27 Dan Nicolaescu <dann@ics.uci.edu>
* epa-file.el (epa-file-handler): Comment out, does not compile.
* vc.el (vc-dir-mode-map): Change bindings for unmark all and revert.
(vc-dir-parent-marked-p, vc-dir-children-marked-p): Implement.
(vc-dir-mark-file): Add an optional argument.

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