(encode-coding-char): Don't check

composite character.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 1c725dd170801365396f8dfe7439023ba7359a25..04ffb09febd8c3b0921e0a225264109c0acf9ea8 100644 (file)
--- 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