(find-file-literally): New function.

1 files changed, 15 insertions, 0 deletions

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)