# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1031185684 0
# Node ID 78c34a06ad5cfcd6bf55f57af609da2af44a51d7
# Parent  2d6a05542b5b865ebba1266c6d03453c187d119d
(decode-char): Cancel the previous change.

diff -r 2d6a05542b5b -r 78c34a06ad5c lisp/international/mule.el
--- a/lisp/international/mule.el	Thu Sep 05 00:27:49 2002 +0000
+++ b/lisp/international/mule.el	Thu Sep 05 00:28:04 2002 +0000
@@ -308,8 +308,7 @@
 Return nil if such a character is not supported.
 Currently the only supported coded character set is `ucs' (ISO/IEC
 10646: Universal Multi-Octet Coded Character Set), and the result is
-translated through the char table `utf-8-translation-table-for-decode'
-if the variable `utf-8-fragment-on-decoding' is non-nil.
+translated through the char table `utf-8-translation-table-for-decode'.
 
 Optional argument RESTRICTION specifies a way to map the pair of CCS
 and CODE-POINT to a character.   Currently not supported and just ignored."
@@ -332,9 +331,7 @@
 	       (setq code-point (- code-point #xe000))
 	       (make-char 'mule-unicode-e000-ffff
 			  (+ (/ code-point 96) 32) (+ (% code-point 96) 32))))))
-      (if (and c
-	       utf-8-fragment-on-decoding
-	       (aref utf-8-translation-table-for-decode c))
+      (if (and c (aref utf-8-translation-table-for-decode c))
 	  (aref utf-8-translation-table-for-decode c)
 	c)))))