diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-16 20:49:06 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-16 20:49:06 -0400 |
| commit | 802dcafb5ebc3588e26a7f83e6144b73d99f2e13 (patch) | |
| tree | 9f3fa2dc948c14dca046b9fbee0958a9aae5836c /lisp | |
| parent | 8d3fff6bd68198b1a76dce559b0b8a5f87cd5103 (diff) | |
| download | emacs-802dcafb5ebc3588e26a7f83e6144b73d99f2e13.tar.gz | |
* mule.el (set-buffer-file-coding-system): Don't burp on iso-2022-7bit
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule.el | 7 |
1 files changed, 5 insertions, 2 deletions
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)))) |