diff options
| author | Kenichi Handa | 1999-12-15 00:41:22 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-12-15 00:41:22 +0000 |
| commit | 5b8d2ff502e594b954b7ef25e028470085814978 (patch) | |
| tree | b553a666e262eb83e04f0458f827814a5296c7bf | |
| parent | 35554641be808ce5991c974d0d7dca144f1606f9 (diff) | |
| download | emacs-5b8d2ff502e594b954b7ef25e028470085814978.tar.gz emacs-5b8d2ff502e594b954b7ef25e028470085814978.zip | |
(encode-coding-char): Don't check
composite character.
| -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)'." | |||
| 1819 | (defun encode-coding-char (char coding-system) | 1819 | (defun encode-coding-char (char coding-system) |
| 1820 | "Encode CHAR by CODING-SYSTEM and return the resulting string. | 1820 | "Encode CHAR by CODING-SYSTEM and return the resulting string. |
| 1821 | If CODING-SYSTEM can't safely encode CHAR, return nil." | 1821 | If CODING-SYSTEM can't safely encode CHAR, return nil." |
| 1822 | (if (cmpcharp char) | ||
| 1823 | (setq char (car (decompose-composite-char char 'list)))) | ||
| 1824 | (let ((str1 (char-to-string char)) | 1822 | (let ((str1 (char-to-string char)) |
| 1825 | (str2 (make-string 2 char)) | 1823 | (str2 (make-string 2 char)) |
| 1826 | (safe-charsets (and coding-system | 1824 | (safe-charsets (and coding-system |