mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(insert-file-contents-literally): Bind

Browse Source 
inhibit-file-name-handlers and inhibit-file-name-operation, not
jka-compr-compression-info-list.
This commit is contained in:
Dave Love 2001-03-02 23:51:19 +00:00
parent b52b65bdb3
commit 7e36528557
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

5
lisp/files.el
View File

@ -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))