(select-safe-coding-system):

Don't ask for confirmation of mismatch if find-file-literally was used.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 2be8e5f7f63..f5820af3fc2 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -721,7 +721,9 @@ and TO is ignored."
         (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)