From cad27acbcc0d333e59cd583d980925b8ef663348 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 30 Nov 2005 14:50:04 +0000 Subject: [PATCH] (char-db-insert-ccs-feature): Format each value of `=adobe-*' as a digit value. --- lisp/utf-2000/char-db-util.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index abea9e1..9a51977 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -439,9 +439,10 @@ (defun char-db-insert-ccs-feature (name value line-breaking) (insert (format - (cond ((memq name '(=daikanwa - =daikanwa@rev1 =daikanwa@rev2 - =gt =gt-k =cbeta =zinbun-oracle)) + (cond ((or (memq name '(=daikanwa + =daikanwa@rev1 =daikanwa@rev2 + =gt =gt-k =cbeta =zinbun-oracle)) + (string-match "^=adobe-" (symbol-name name))) "(%-18s . %05d)\t; %c") ((eq name 'mojikyo) "(%-18s . %06d)\t; %c") -- 1.7.10.4