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

2 files changed, 10 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8df5b4958c7..7f496ec2728 100644
--- 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 7d53b872c1b..e736667715a 100644
--- 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