From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Jul 1997 09:57:37 +0000 (+0000)
Subject: (find-file-literally): New function.
X-Git-Tag: emacs-20.1~1270
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fc196afb06ebcaef2475b5995f7b8717aadeeb2;p=emacs.git

(find-file-literally): New function.
---

diff --git a/lisp/files.el b/lisp/files.el
index c794719964c..d2557e4bee7 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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)