diff options
| author | Kenichi Handa <handa@m17n.org> | 2002-09-05 00:28:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2002-09-05 00:28:04 +0000 |
| commit | dfc538bb10d0f690597cd082b66347bfe9fb9949 (patch) | |
| tree | 3ec3db7a4ad1644cf17179837e507c72bfdcef5b | |
| parent | 3873f5a52edea11050122b101b1e834b7713d5fc (diff) | |
| download | emacs-dfc538bb10d0f690597cd082b66347bfe9fb9949.tar.gz | |
(decode-char): Cancel the previous change.
| -rw-r--r-- | lisp/international/mule.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 8b1dbf89762..b6db19d5ebe 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -308,8 +308,7 @@ See also the documentation of `make-char'." Return nil if such a character is not supported. Currently the only supported coded character set is `ucs' (ISO/IEC 10646: Universal Multi-Octet Coded Character Set), and the result is -translated through the char table `utf-8-translation-table-for-decode' -if the variable `utf-8-fragment-on-decoding' is non-nil. +translated through the char table `utf-8-translation-table-for-decode'. Optional argument RESTRICTION specifies a way to map the pair of CCS and CODE-POINT to a character. Currently not supported and just ignored." @@ -332,9 +331,7 @@ and CODE-POINT to a character. Currently not supported and just ignored." (setq code-point (- code-point #xe000)) (make-char 'mule-unicode-e000-ffff (+ (/ code-point 96) 32) (+ (% code-point 96) 32)))))) - (if (and c - utf-8-fragment-on-decoding - (aref utf-8-translation-table-for-decode c)) + (if (and c (aref utf-8-translation-table-for-decode c)) (aref utf-8-translation-table-for-decode c) c))))) |