# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869465793 0
# Node ID 5456507de2dd8bb28109d894c15818d065ab0cf2
# Parent  de4c911119b4eface9821e83b2617763a03d1243
(find-file-literally): Temporarily remove tar-mode and
archive-mode from auto-mode-alist.

diff -r de4c911119b4 -r 5456507de2dd lisp/files.el
--- a/lisp/files.el	Mon Jul 21 06:00:23 1997 +0000
+++ b/lisp/files.el	Mon Jul 21 06:16:33 1997 +0000
@@ -954,9 +954,19 @@
   (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))))