From: tomo <tomo>
Date: Tue, 5 Oct 2004 04:26:38 +0000 (+0000)
Subject: (mapping-table-read-file): Prefer =ucs@DOMAIN to =ucs.
X-Git-Tag: r21-4-15-u2km-0_21-32-a~2^2~211
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d50fddb644adcd4c64a06c3e3d6767e8261f14e4;p=chise%2Fxemacs-chise.git

(mapping-table-read-file): Prefer =ucs@DOMAIN to =ucs.
---

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index d9974c3..c43d38b 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -120,6 +120,9 @@
 	      (if (looking-at
 		   "[ \t]*U[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
 		  (string-to-int (match-string 1) 16)))
+	(if (and ucs-ccs ucs (not ucs-code))
+	    (setq ucs-code ucs
+		  ucs nil))
 	(when (setq chr (decode-char ccs code))
 	  (unless (eq (encode-char chr ccs 'defined-only)
 		      code)