diff options
author | Kenichi Handa <handa@m17n.org> | 2000-10-30 01:34:41 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2000-10-30 01:34:41 +0000 |
commit | a89f541b4ad5faae5269295e0ecfb1f82e60efc1 (patch) | |
tree | 34c6b607e0560e37f7a2c83e7f9c890967ca4ead /lisp/international/mule-cmds.el | |
parent | fa0cb51dd0876c564161160f3d5ae2027e9614a3 (diff) | |
download | emacs-a89f541b4ad5faae5269295e0ecfb1f82e60efc1.tar.gz |
(encode-coding-char): Check property safe-chars instead of
safe-charsets.
Diffstat (limited to 'lisp/international/mule-cmds.el')
-rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 69f11ea8952..f02c470c8b5 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1952,13 +1952,13 @@ It can be retrieved with `(get-char-code-property CHAR PROPNAME)'." 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. |