Fix an error in selecting encoding when writing zip files
* lisp/international/mule-cmds.el (select-safe-coding-system): Treat no-conversion-multibyte that came from find-auto-coding the same as no-conversion for the purposes of encoding. The same logic that considers no-conversion always safe should do the same with no-conversion-multibyte. (Bug#38155)
This commit is contained in:
parent
e73184138d
commit
a1a724d73a
1 changed files with 5 additions and 0 deletions
|
@ -896,6 +896,11 @@ It is highly recommended to fix it before writing to a file."
|
|||
;; other setting.
|
||||
(let ((base (coding-system-base auto-cs)))
|
||||
(unless (memq base '(nil undecided))
|
||||
;; For encoding, no-conversion-multibyte is the same as
|
||||
;; no-conversion.
|
||||
(if (eq base 'no-conversion-multibyte)
|
||||
(setq auto-cs 'no-conversion
|
||||
base 'no-conversion))
|
||||
(setq default-coding-system (list (cons auto-cs base)))
|
||||
(setq no-other-defaults t))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue