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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8df5b4958c7f20a6c888694aa07515c1dbc37629..7f496ec272851c27875b5326f03a6635c4add924 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/epa-file.el b/lisp/epa-file.el
index 7d53b872c1be0642fa79f15b2ecd386a921dad5b..e736667715a3373cd9e79245f432f1fc6c2e39ee 100644 (file)
--- a/lisp/epa-file.el
+++ b/lisp/epa-file.el
@@ -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