diff options
| author | Kenichi Handa | 1998-12-15 04:35:38 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-12-15 04:35:38 +0000 |
| commit | d00742a1c66ae3a77babb468e28cd1c06c92faec (patch) | |
| tree | 52f0537c9de2e78bb313b87bf79f953f5f4789d5 /lisp | |
| parent | 407c6b9441733f439421f673bf947ea1b7be6222 (diff) | |
| download | emacs-d00742a1c66ae3a77babb468e28cd1c06c92faec.tar.gz emacs-d00742a1c66ae3a77babb468e28cd1c06c92faec.zip | |
(make-coding-system): Set mime-charset
property of *-with-esc coding system to nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 31cb9e46916..02f2746ef97 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -669,6 +669,7 @@ a value of `safe-charsets' in PLIST." | |||
| 669 | (cons (append (car flags) '(t)) (cdr flags)) | 669 | (cons (append (car flags) '(t)) (cdr flags)) |
| 670 | (cons (list (car flags) t) (cdr flags))) | 670 | (cons (list (car flags) t) (cdr flags))) |
| 671 | properties) | 671 | properties) |
| 672 | (coding-system-put esc 'mime-charset nil) | ||
| 672 | (coding-system-put esc 'safe-charsets t)))) | 673 | (coding-system-put esc 'safe-charsets t)))) |
| 673 | 674 | ||
| 674 | coding-system) | 675 | coding-system) |