(M38722): Separate U+8FC2.

[chise/xemacs-chise.git-] / lisp / utf-2000 / char-db-util.el

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 460d985..7ce474b 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -153,9 +153,9 @@
          )
        (when (setq cell (assq '->ucs data))
          (setq cell (cdr cell))
-         (insert (format "(->ucs\t\t. #x%04X)
+         (insert (format "(->ucs\t\t. #x%04X)\t; %c
     "
-                         cell))
+                         cell (decode-char 'ucs cell)))
          (setq data (del-alist '->ucs data))
          )
        (when (setq cell (assq 'general-category data))
@@ -394,32 +394,35 @@
        (while data
          (setq cell (car data))
          (cond ((setq ret (find-charset (car cell)))
-                (insert
-                 (format
-                  (if has-long-ccs-name
-                      (if (eq ret (find-charset 'ideograph-daikanwa))
-                          "(%-26s . %d)
-    "
-                        "(%-26s . #x%X)
-    "
-                        )
-                    (if (eq ret (find-charset 'ideograph-daikanwa))
-                        "(%-18s . %d)
-    "
-                      "(%-18s . #x%X)
-    "
-                      ))
-                  (charset-name ret)
-                  (if (= (charset-iso-graphic-plane ret) 1)
-                      (logior (cdr cell)
-                              (cond ((= (charset-dimension ret) 1)
-                                     #x80)
-                                    ((= (charset-dimension ret) 2)
-                                     #x8080)
-                                    ((= (charset-dimension ret) 3)
-                                     #x808080)
-                                    (t 0)))
-                    (cdr cell)))))
+                (or (string-match "^mojikyo-pj-"
+                                  (symbol-name (charset-name ret)))
+                    (insert
+                     (format
+                      (if has-long-ccs-name
+                          (if (eq ret (find-charset 'ideograph-daikanwa))
+                              "(%-26s . %05d)\t; %c
+    "
+                            "(%-26s . #x%X)\t; %c
+    "
+                            )
+                        (if (eq ret (find-charset 'ideograph-daikanwa))
+                            "(%-18s . %05d)\t; %c
+    "
+                          "(%-18s . #x%X)\t; %c
+    "
+                          ))
+                      (charset-name ret)
+                      (if (= (charset-iso-graphic-plane ret) 1)
+                          (logior (cdr cell)
+                                  (cond ((= (charset-dimension ret) 1)
+                                         #x80)
+                                        ((= (charset-dimension ret) 2)
+                                         #x8080)
+                                        ((= (charset-dimension ret) 3)
+                                         #x808080)
+                                        (t 0)))
+                        (cdr cell))
+                      (decode-builtin-char ret (cdr cell))))))
                ((string-match "^->" (symbol-name (car cell)))
                 (insert
                  (format "(%-18s %s)
@@ -454,12 +457,14 @@
        ))))
 
 (defun decode-builtin-char (charset code-point)
-  (if (and (not (eq charset 'ideograph-daikanwa))
-          (or (memq charset '(ascii latin-viscii-upper
-                                    latin-viscii-lower
-                                    arabic-iso8859-6
-                                    japanese-jisx0213-1
-                                    japanese-jisx0213-2))
+  (setq charset (get-charset charset))
+  (if (and (not (eq (charset-name charset) 'ideograph-daikanwa))
+          (or (memq (charset-name charset)
+                    '(ascii latin-viscii-upper
+                            latin-viscii-lower
+                            arabic-iso8859-6
+                            japanese-jisx0213-1
+                            japanese-jisx0213-2))
               (= (char-int (charset-iso-final-char charset)) 0)))
       (decode-char charset code-point)
     (let ((table (charset-mapping-table charset)))
@@ -526,9 +531,10 @@
       )))
 
 (defun write-char-range-data-to-file (min max file)
-  (with-temp-buffer
-    (insert-char-range-data min max)
-    (write-region (point-min)(point-max) file)))
+  (let ((coding-system-for-write 'utf-8))
+    (with-temp-buffer
+      (insert-char-range-data min max)
+      (write-region (point-min)(point-max) file))))
 
 (defvar what-character-original-window-configuration)
 
@@ -546,7 +552,7 @@
     (condition-case err
        (progn
          (insert-char-data-with-variant char)
-         (char-db-update-comment)
+          ;; (char-db-update-comment)
          (set-buffer-modified-p nil)
          (view-mode the-buf (lambda (buf)
                               (set-window-configuration