diff options
| -rw-r--r-- | lisp/epa-file.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/epa-file.el b/lisp/epa-file.el index e736667715a..d7076d4b3a7 100644 --- a/lisp/epa-file.el +++ b/lisp/epa-file.el | |||
| @@ -124,15 +124,12 @@ May either be a string or a list of strings.") | |||
| 124 | (epa-passphrase-callback-function context key-id nil))) | 124 | (epa-passphrase-callback-function context key-id nil))) |
| 125 | 125 | ||
| 126 | (defun epa-file-handler (operation &rest args) | 126 | (defun epa-file-handler (operation &rest args) |
| 127 | ;; (save-match-data | 127 | (save-match-data |
| 128 | ;; (let ((op (get operation 'epa-file))) | 128 | (let ((op (get operation 'epa-file))) |
| 129 | ;; (if (and op | 129 | (if op |
| 130 | ;; (if (and (eq operation 'insert-file-contents) | 130 | (apply op args) |
| 131 | 131 | (epa-file-run-real-handler operation args))))) | |
| 132 | ;; (y-or-n-p "" | 132 | |
| 133 | ;; (apply op args) | ||
| 134 | ;; (epa-file-run-real-handler operation args))))) | ||
| 135 | nil) | ||
| 136 | (defun epa-file-run-real-handler (operation args) | 133 | (defun epa-file-run-real-handler (operation args) |
| 137 | (let ((inhibit-file-name-handlers | 134 | (let ((inhibit-file-name-handlers |
| 138 | (cons 'epa-file-handler | 135 | (cons 'epa-file-handler |