From 659c913e9621ac2286a9a258fe71e682ce991338 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Oct 2004 13:34:17 +0000 Subject: [PATCH] (insert-char-attributes): Don't display `->halfwidth' when running with non-readable mode and it does not have `->halfwidth*sources'. --- lisp/utf-2000/char-db-util.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index ff80774..7ed7c62 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -878,12 +878,11 @@ (intern (format "%s*sources" name)))) (not (string-match "\\*sources$" (symbol-name name))) (or (eq name '<-identical) + (string-match "^->halfwidth" (symbol-name name)) (string-match "^->simplified" (symbol-name name)) - ;; (string-match "^<-same" (symbol-name name)) - (string-match "^->same" (symbol-name name)) - ;; (string-match "^->ideographic-same" (symbol-name name)) (string-match "^->vulgar" (symbol-name name)) (string-match "^->wrong" (symbol-name name)) + (string-match "^->same" (symbol-name name)) (string-match "^->original" (symbol-name name)) (string-match "^->ancient" (symbol-name name)) )) -- 1.7.10.4