From c536ad9b6cc952aed133c68cf72a0ba5b6c7c626 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 24 Apr 2004 19:57:15 +0000 Subject: [PATCH] (insert-char-attributes): Insert `->simplified' and `->vulgar' if they have their meta-data `*sources' even if non-printable mode. --- lisp/utf-2000/char-db-util.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 104f52d..9cf6d07 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -908,6 +908,10 @@ line-breaking)) ) ((and (not readable) + (null (get-char-attribute + char + (intern (format "%s*sources" name)))) + (not (string-match "\\*sources$" (symbol-name name))) (or (eq name '<-identical) (string-match "^->simplified" (symbol-name name)) (string-match "^->vulgar" (symbol-name name)) -- 1.7.10.4