From: tomo <tomo>
Date: Wed, 22 Mar 2000 10:06:25 +0000 (+0000)
Subject: (insert-char-data): Regard charset `mojikyo' as same as
X-Git-Tag: r21-2-27-utf-2000-0_15-0~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1c0dcd37222b5cd57e184af3593bfdb82bd942a8;p=chise%2Fxemacs-chise.git.1

(insert-char-data): Regard charset `mojikyo' as same as
`ideograph-daikanwa'; support `jisx0208-1978/4X'.
(decode-builtin-char): Regard charset `mojikyo' as same as
`ideograph-daikanwa'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 7ce474b..60c70c6 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -399,13 +399,17 @@
 		     (insert
 		      (format
 		       (if has-long-ccs-name
-			   (if (eq ret (find-charset 'ideograph-daikanwa))
+			   (if (memq ret
+				     (list (find-charset 'ideograph-daikanwa)
+					   (find-charset 'mojikyo)))
 			       "(%-26s . %05d)\t; %c
     "
 			     "(%-26s . #x%X)\t; %c
     "
 			     )
-			 (if (eq ret (find-charset 'ideograph-daikanwa))
+			 (if (memq ret
+				   (list (find-charset 'ideograph-daikanwa)
+					 (find-charset 'mojikyo)))
 			     "(%-18s . %05d)\t; %c
     "
 			   "(%-18s . #x%X)\t; %c
@@ -442,6 +446,10 @@
 				 (car cell)
 				 (mapconcat (function prin1-to-string)
 					    (cdr cell) " "))))
+		((eq (car cell) 'jisx0208-1978/4X)
+		 (insert (format "(%-18s . #x%04X)
+    "
+				 (car cell)(cdr cell))))
 		(t
 		 (insert (format "(%-18s . %S)
     "
@@ -458,7 +466,8 @@
 
 (defun decode-builtin-char (charset code-point)
   (setq charset (get-charset charset))
-  (if (and (not (eq (charset-name charset) 'ideograph-daikanwa))
+  (if (and (not (memq (charset-name charset)
+		      '(ideograph-daikanwa mojikyo)))
 	   (or (memq (charset-name charset)
 		     '(ascii latin-viscii-upper
 			     latin-viscii-lower