From 67e097e97e56af07d036150be307899093d5d21a Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 24 Jul 2004 08:15:26 +0000 Subject: [PATCH] (insert-char-attributes): Ignore `->same' instead of `<-same' if it does not have `*sources'. --- 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 b87dea3..84b6a98 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -872,8 +872,7 @@ (unless readable (dolist (ignored '(composition ->denotational <-subsumptive ->ucs-unified - ->ideographic-component-forms - <-same)) + ->ideographic-component-forms)) (setq attributes (delq ignored attributes)))) ;; (setq rest ccs-attributes) ;; (while (and rest @@ -949,7 +948,9 @@ (not (string-match "\\*sources$" (symbol-name name))) (or (eq name '<-identical) (string-match "^->simplified" (symbol-name name)) - (string-match "^<-same" (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 "^->original" (symbol-name name)) -- 1.7.10.4