From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 17 May 2019 00:49:06 +0000 (-0400)
Subject: * mule.el (set-buffer-file-coding-system): Don't burp on iso-2022-7bit
X-Git-Tag: emacs-27.0.90~2865
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=802dcafb5ebc3588e26a7f83e6144b73d99f2e13;p=emacs.git

* mule.el (set-buffer-file-coding-system): Don't burp on iso-2022-7bit
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index ba30fee4961..b5414de0dba 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1345,8 +1345,11 @@ just set the variable `buffer-file-coding-system' directly."
       (setq coding-system
 	    (merge-coding-systems coding-system buffer-file-coding-system)))
   (when (and (called-interactively-p 'interactive)
-	     (not (memq 'emacs (coding-system-get coding-system
-						  :charset-list))))
+             ;; FIXME: For some reason
+             ;;     (coding-system-get 'iso-2022-7bit :charset-list)
+             ;; returns `iso-2022' rather than returning a list!
+             (let ((css (coding-system-get coding-system :charset-list)))
+               (not (and (listp css) (memq 'emacs css)))))
     ;; Check whether save would succeed, and jump to the offending char(s)
     ;; if not.
     (let ((css (find-coding-systems-region (point-min) (point-max))))