Mercurial > emacs
changeset 33047:5343896202ce
(encode-coding-char): Check property safe-chars instead of
safe-charsets.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 30 Oct 2000 01:34:41 +0000 |
| parents | 750f2e41d6bf |
| children | 636ac3744ddd |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Mon Oct 30 01:33:12 2000 +0000 +++ b/lisp/international/mule-cmds.el Mon Oct 30 01:34:41 2000 +0000 @@ -1952,13 +1952,13 @@ If CODING-SYSTEM can't safely encode CHAR, return nil." (let ((str1 (string-as-multibyte (char-to-string char))) (str2 (string-as-multibyte (make-string 2 char))) - (safe-charsets (and coding-system - (coding-system-get coding-system 'safe-charsets))) + (safe-chars (and coding-system + (coding-system-get coding-system 'safe-chars))) (charset (char-charset char)) enc1 enc2 i1 i2) - (when (or (eq safe-charsets t) + (when (or (eq safe-chars t) (eq charset 'ascii) - (memq charset safe-charsets)) + (and safe-chars (aref safe-chars char))) ;; We must find the encoded string of CHAR. But, just encoding ;; CHAR will put extra control sequences (usually to designate ;; ASCII charaset) at the tail if type of CODING is ISO 2022.