From: Dave Love Date: Fri, 2 Mar 2001 23:51:19 +0000 (+0000) Subject: (insert-file-contents-literally): Bind X-Git-Tag: emacs-pretest-21.0.99~39 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e365285571e933d7e5d979d77c07f5e3f98b357;p=emacs.git (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 ddd6105ccad..1276a6963b3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-03-02 Dave Love + + * 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 * newcomment.el (comment-normalize-vars): Use [ \t] for the trailing diff --git a/lisp/files.el b/lisp/files.el index e81a20b7697..804f35bb6e9 100644 --- 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))