From 5b8d2ff502e594b954b7ef25e028470085814978 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 15 Dec 1999 00:41:22 +0000 Subject: [PATCH] (encode-coding-char): Don't check composite character. --- lisp/international/mule-cmds.el | 2 -- 1 file changed, 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)'." (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 -- 2.39.5