From 9e7638c33d5a6de64971af50a8fdfe3e80d03709 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 23 Jul 2002 19:14:36 +0000 Subject: [PATCH] (select-safe-coding-system): Don't ask for confirmation of mismatch if find-file-literally was used. --- lisp/international/mule-cmds.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.5