mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 07:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(find-file-literally): New function.

Browse source
This commit is contained in:
Richard M. Stallman 1997-07-08 09:57:37 +00:00
parent 4e2aade124
commit 5fc196afb0
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/files.el
View file

@ -943,6 +943,21 @@ Optional second arg RAWFILE non-nil means the file is read literally"
(after-find-file error (not nowarn))
(setq buf (current-buffer)))))
buf)))
(defun find-file-literally (filename)
"Visit file FILENAME with no conversion of any kind.
Format conversion and character code conversion are both disabled,
and multibyte characters are disabled in the resulting buffer.
Automatic uncompression is also disabled."
(interactive "FFind file literally: ")
(let ((coding-system-for-read 'no-conversion)
(coding-system-for-write 'no-conversion)
(jka-compr-compression-info-list nil)
(format-alist nil)
(after-insert-file-functions nil))
(prog1
(find-file filename)
(setq enable-multibyte-characters nil))))
(defvar after-find-file-from-revert-buffer nil)