procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(find-file-literally): Temporarily remove tar-mode and

Browse source 
archive-mode from auto-mode-alist.
This commit is contained in:
Richard M. Stallman 1997-07-21 06:16:33 +00:00
parent 824974dfa4
commit 7c24fbd234
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/files.el
View file

@ -954,9 +954,19 @@ Automatic uncompression is also disabled."
(interactive "FFind file literally: ")
(let ((coding-system-for-read 'no-conversion)
(coding-system-for-write 'no-conversion)
(auto-mode-alist (copy-sequence auto-mode-alist))
(jka-compr-compression-info-list nil)
(format-alist nil)
(after-insert-file-functions nil))
(after-insert-file-functions nil)
tail)
;; Turn off use of tar-mode and archive-mode
;; for this one file. (We copied auto-mode-alist above
;; so as not to alter it permanently.)
(setq tail auto-mode-alist)
(while tail
(if (memq (cdr (car tail)) '(tar-mode archive-mode))
(setq auto-mode-alist (delq (car tail) auto-mode-alist)))
(setq tail (cdr tail)))
(prog1
(find-file filename)
(setq enable-multibyte-characters nil))))