# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 945218482 0
# Node ID 1f32811873b737df6c9bbb8947b15ad27aa3844e
# Parent  2f284b9ec7110fbbc11b8fd41ef5e78ad2e2d718
(encode-coding-char): Don't check
composite character.

diff -r 2f284b9ec711 -r 1f32811873b7 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Dec 15 00:40:48 1999 +0000
+++ b/lisp/international/mule-cmds.el	Wed Dec 15 00:41:22 1999 +0000
@@ -1819,8 +1819,6 @@
 (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