# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1209329614 0
# Node ID 1ea022d5b378328ea2d9cf1ced1fbe2058e57525
# Parent  d27d80ade7b76b627b961c5b55039952da082c31
(epa-file-handler): Comment out, does not compile.

diff -r d27d80ade7b7 -r 1ea022d5b378 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Apr 27 19:52:13 2008 +0000
+++ b/lisp/ChangeLog	Sun Apr 27 20:53:34 2008 +0000
@@ -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 -r d27d80ade7b7 -r 1ea022d5b378 lisp/epa-file.el
--- a/lisp/epa-file.el	Sun Apr 27 19:52:13 2008 +0000
+++ b/lisp/epa-file.el	Sun Apr 27 20:53:34 2008 +0000
@@ -124,15 +124,15 @@
     (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