projects / chise / xemacs-chise.git- / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f52265c)
(insert-char-data): Fix format of `iso-10646-comment'; swap order of
authortomo <tomo>
Sat, 13 Nov 1999 15:49:07 +0000 (15:49 +0000)
committertomo <tomo>
Sat, 13 Nov 1999 15:49:07 +0000 (15:49 +0000)
`->lowercase' and `->titlecase'.

lisp/utf-2000/char-db-util.el patch | blob | history

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 4501ebc..1f58691 100644 (file)
--- 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