diff options
| -rw-r--r-- | lisp/international/mule-cmds.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 1edf80d14c8..e4f5bb2a5f0 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -896,6 +896,11 @@ It is highly recommended to fix it before writing to a file." | |||
| 896 | ;; other setting. | 896 | ;; other setting. |
| 897 | (let ((base (coding-system-base auto-cs))) | 897 | (let ((base (coding-system-base auto-cs))) |
| 898 | (unless (memq base '(nil undecided)) | 898 | (unless (memq base '(nil undecided)) |
| 899 | ;; For encoding, no-conversion-multibyte is the same as | ||
| 900 | ;; no-conversion. | ||
| 901 | (if (eq base 'no-conversion-multibyte) | ||
| 902 | (setq auto-cs 'no-conversion | ||
| 903 | base 'no-conversion)) | ||
| 899 | (setq default-coding-system (list (cons auto-cs base))) | 904 | (setq default-coding-system (list (cons auto-cs base))) |
| 900 | (setq no-other-defaults t)))) | 905 | (setq no-other-defaults t)))) |
| 901 | 906 | ||