Mercurial > emacs

changeset 26888:1f32811873b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(encode-coding-char): Don't check composite character.
author Kenichi Handa <handa@m17n.org>
date Wed, 15 Dec 1999 00:41:22 +0000
parents 2f284b9ec711
children 8ce2101d81c0
files lisp/international/mule-cmds.el
diffstat 1 files changed, 0 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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