From c0caffe6483d7963f9270acb4bbc7abde887bb57 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 8 Mar 2004 15:10:11 +0000 Subject: [PATCH] (insert-char-attributes): Don't display `->ideographic-component-forms' when running with non-readable mode. --- lisp/utf-2000/char-db-util.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index a15b587..20bd5c4 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -447,6 +447,14 @@ line-breaking)) (setq attributes (delq 'script attributes)) ) + ;; (when (and (memq '<-denotational attributes) + ;; (setq value (get-char-attribute char '<-denotational)) + ;; (null (cdr value)) + ;; (setq value (encode-char (car value) 'ucs 'defined-only))) + ;; (insert (format "(%-18s . #x%04X)\t; %c%s" + ;; '=>ucs value (decode-char 'ucs value) + ;; line-breaking)) + ;; (setq attributes (delq '<-denotational attributes))) (dolist (name '(=>ucs =>ucs*)) (when (and (memq name attributes) (setq value (get-char-attribute char name))) @@ -828,7 +836,8 @@ ) (unless readable (dolist (ignored '(composition - ->denotational <-subsumptive ->ucs-unified)) + ->denotational <-subsumptive ->ucs-unified + ->ideographic-component-forms)) (setq attributes (delq ignored attributes)))) ;; (setq rest ccs-attributes) ;; (while (and rest -- 1.7.10.4