From b967dbbbd1be53c8ebe0f79baad1a19355d22a22 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 2 Nov 2004 14:57:08 +0000 Subject: [PATCH] (insert-char-attributes): Don't display `->fullwidth' for non UCS character when running with non-readable mode and it does not have `->fullwidth*sources'. --- lisp/utf-2000/char-db-util.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 7ed7c62..45d4fa1 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -879,6 +879,13 @@ (not (string-match "\\*sources$" (symbol-name name))) (or (eq name '<-identical) (string-match "^->halfwidth" (symbol-name name)) + (and + (string-match "^->fullwidth" (symbol-name name)) + (not + (and (consp value) + (characterp (car value)) + (encode-char + (car value) '=ucs 'defined-only)))) (string-match "^->simplified" (symbol-name name)) (string-match "^->vulgar" (symbol-name name)) (string-match "^->wrong" (symbol-name name)) -- 1.7.10.4