From 676a8ae1013298d86f4fdc5c1bfda2372c28c8cc Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 18 Apr 2004 16:50:18 +0000 Subject: [PATCH] (insert-char-attributes): Don't display `->vulgar' when running with non-readable mode; Add some CCSs corresponding with shinjigen-1 specified in {<-|->}FOO*sources into required-features. --- lisp/utf-2000/char-db-util.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 3495f53..104f52d 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -909,7 +909,9 @@ ) ((and (not readable) (or (eq name '<-identical) - (string-match "^->simplified" (symbol-name name)))) + (string-match "^->simplified" (symbol-name name)) + (string-match "^->vulgar" (symbol-name name)) + )) ) ((or (eq name 'ideographic-structure) (eq name 'ideographic-) @@ -946,11 +948,8 @@ (setq required-features nil) (dolist (source sources) (cond - ((find-charset - (setq ret (intern (format "=%s" source)))) - (setq required-features - (cons ret required-features))) - ((memq source '(JP JP/Jouyou)) + ((memq source '(JP JP/Jouyou + shinjigen-1)) (setq required-features (union required-features '(=jis-x0208 @@ -965,7 +964,12 @@ (union required-features '(=gb2312 =gb12345 - =iso-ir165)))) + =iso-ir165))))) + (cond + ((find-charset + (setq ret (intern (format "=%s" source)))) + (setq required-features + (cons ret required-features))) (t (setq required-features (cons source required-features))))) (cond ((string-match "@JP" (symbol-name name)) -- 1.7.10.4