(insert-file-contents-literally): Bind

inhibit-file-name-handlers and inhibit-file-name-operation, not
jka-compr-compression-info-list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ddd6105ccad94e83da9a612de5bb757d641ef13f..1276a6963b3ca7889f9e998306ac747482ab71cd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-03-02  Dave Love  <fx@gnu.org>
+
+       * files.el (insert-file-contents-literally): Bind
+       inhibit-file-name-handlers and inhibit-file-name-operation, not
+       jka-compr-compression-info-list.
+
 2001-03-02  Stefan Monnier  <monnier@cs.yale.edu>
 
        * newcomment.el (comment-normalize-vars): Use [ \t] for the trailing

diff --git a/lisp/files.el b/lisp/files.el
index e81a20b76973c5c245ec828d3036e45d521a114b..804f35bb6e9b61215f13b523051f04ded25a178d 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1178,11 +1178,12 @@ This function ensures that none of these modifications will take place."
        (after-insert-file-functions nil)
        (coding-system-for-read 'no-conversion)
        (coding-system-for-write 'no-conversion)
-       (jka-compr-compression-info-list nil)
        (find-buffer-file-type-function
         (if (fboundp 'find-buffer-file-type)
             (symbol-function 'find-buffer-file-type)
-          nil)))
+          nil))
+       (inhibit-file-name-handlers '(jka-compr-handler image-file-handler))
+       (inhibit-file-name-operation 'insert-file-contents))
     (unwind-protect
        (progn
          (fset 'find-buffer-file-type (lambda (filename) t))