From: tomo <tomo>
Date: Sat, 13 Nov 1999 15:49:07 +0000 (+0000)
Subject: (insert-char-data): Fix format of `iso-10646-comment'; swap order of
X-Git-Tag: r21-2-19-utf-2000-0_12-0~87
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=147864f7999198cf34406560387d15a29322670c;p=chise%2Fxemacs-chise.git

(insert-char-data): Fix format of `iso-10646-comment'; swap order of
`->lowercase' and `->titlecase'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 4501ebc..1f58691 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -199,7 +199,7 @@
 	  )
 	(when (setq cell (assq 'iso-10646-comment data))
 	    (setq cell (cdr cell))
-	    (insert (format "(iso-10646-comment\t . %S)
+	    (insert (format "(iso-10646-comment\t. %S)
     "
 			    cell))
 	    (setq data (del-alist 'iso-10646-comment data))
@@ -232,9 +232,9 @@
 				     cell " ")))
 	  (setq data (del-alist '->uppercase data))
 	  )
-	(when (setq cell (assq '->titlecase data))
+	(when (setq cell (assq '->lowercase data))
 	  (setq cell (cdr cell))
-	  (insert (format "(->titlecase\t%s)
+	  (insert (format "(->lowercase\t%s)
     "
 			  (mapconcat (lambda (code)
 				       (cond ((symbolp code)
@@ -244,11 +244,11 @@
 					     (t
 					      (format "\n     %S" code))))
 				     cell " ")))
-	  (setq data (del-alist '->titlecase data))
+	  (setq data (del-alist '->lowercase data))
 	  )
-	(when (setq cell (assq '->lowercase data))
+	(when (setq cell (assq '->titlecase data))
 	  (setq cell (cdr cell))
-	  (insert (format "(->lowercase\t%s)
+	  (insert (format "(->titlecase\t%s)
     "
 			  (mapconcat (lambda (code)
 				       (cond ((symbolp code)
@@ -258,7 +258,7 @@
 					     (t
 					      (format "\n     %S" code))))
 				     cell " ")))
-	  (setq data (del-alist '->lowercase data))
+	  (setq data (del-alist '->titlecase data))
 	  )
 	(setq data
 	      (sort data