mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2019-05-16 20:49:06 -04:00
parent 8d3fff6bd6
commit 802dcafb5e
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/international/mule.el
View file

@ -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))))