From: tomo <tomo>
Date: Thu, 9 Nov 2000 12:16:34 +0000 (+0000)
Subject: (insert-char-data): Check value of `mirrored' attribute is nil or not
X-Git-Tag: r21-2-37-utf-2000-0_17-1~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e0d4c4f387400ad26d13b7b04bcd6ca2832318c7;p=chise%2Fxemacs-chise.git.1

(insert-char-data): Check value of `mirrored' attribute is nil or not
exist.
(insert-char-data-with-variant): Add new optional argument
`no-ucs-variant'.
(insert-char-range-data): Specify `no-ucs-variant' for
`insert-char-data-with-variant'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 4e4efdc..e99f056 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -173,7 +173,8 @@
 			value))
 	(setq attributes (delq 'bidi-category attributes))
 	)
-      (when (setq value (get-char-attribute char 'mirrored))
+      (unless (eq (setq value (get-char-attribute char 'mirrored 'empty))
+		  'empty)
 	(insert (format "(mirrored\t\t. %S)
     "
 			value))
@@ -517,7 +518,8 @@
 	    (insert (format "\t; %c" char)))
 	  )))))
 
-(defun insert-char-data-with-variant (char &optional script printable)
+(defun insert-char-data-with-variant (char &optional script printable
+					   no-ucs-variant)
   (insert-char-data char printable)
   (let ((variants (or (char-variants char)
 		      (let ((ucs (get-char-attribute char '->ucs)))
@@ -529,7 +531,8 @@
       (if (or (null script)
 	      (null (setq vs (get-char-attribute variant 'script)))
 	      (memq script vs))
-	  (insert-char-data variant printable))
+	  (or (and no-ucs-variant (get-char-attribute variant 'ucs))
+	      (insert-char-data variant printable)))
       (setq variants (cdr variants))
       )))
 
@@ -539,7 +542,7 @@
     (while (<= code max)
       (setq char (decode-char 'ucs code))
       (if (get-char-attribute char 'ucs)
-	  (insert-char-data-with-variant char script))
+	  (insert-char-data-with-variant char script nil 'no-ucs-variant))
       (setq code (1+ code))
       )))