diff options
| -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 |