diff options
| author | Kenichi Handa <handa@m17n.org> | 1999-12-15 00:41:22 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1999-12-15 00:41:22 +0000 |
| commit | 5b8d2ff502e594b954b7ef25e028470085814978 (patch) | |
| tree | b553a666e262eb83e04f0458f827814a5296c7bf /lisp/international/mule-cmds.el | |
| parent | 35554641be808ce5991c974d0d7dca144f1606f9 (diff) | |
| download | emacs-5b8d2ff502e594b954b7ef25e028470085814978.tar.gz | |
(encode-coding-char): Don't check
composite character.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 1c725dd1708..04ffb09febd 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1819,8 +1819,6 @@ It can be retrieved with `(get-char-code-property CHAR PROPNAME)'." (defun encode-coding-char (char coding-system) "Encode CHAR by CODING-SYSTEM and return the resulting string. If CODING-SYSTEM can't safely encode CHAR, return nil." - (if (cmpcharp char) - (setq char (car (decompose-composite-char char 'list)))) (let ((str1 (char-to-string char)) (str2 (make-string 2 char)) (safe-charsets (and coding-system |