From 147864f7999198cf34406560387d15a29322670c Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 13 Nov 1999 15:49:07 +0000 Subject: [PATCH] (insert-char-data): Fix format of `iso-10646-comment'; swap order of `->lowercase' and `->titlecase'. --- lisp/utf-2000/char-db-util.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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 -- 1.7.10.4