changeset 46642:79837bb10069

(select-safe-coding-system): Don't ask for confirmation of mismatch if find-file-literally was used.
author Richard M. Stallman <rms@gnu.org>
date Tue, 23 Jul 2002 19:14:36 +0000
parents d2e89e4ef1f1
children 7715f3004d93
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Tue Jul 23 19:10:02 2002 +0000
+++ b/lisp/international/mule-cmds.el	Tue Jul 23 19:14:36 2002 +0000
@@ -721,7 +721,9 @@
 	(setq coding-system buffer-file-coding-system))
     ;; Check we're not inconsistent with what `coding:' spec &c would
     ;; give when file is re-read.
-    (unless (stringp from)
+    ;; But don't do this if we explicitly ignored the cookie
+    ;; by using `find-file-literally'.
+    (unless (or (stringp from) find-file-literally)
       (let ((auto-cs (save-excursion
 		       (save-restriction
 			 (widen)