From df0888bbae7c0121f9f43d4503c11063c077768a Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 19 Oct 2001 17:49:23 +0000 Subject: [PATCH] (char-db-coded-charset-priority-list): New variable. (char-db-insert-char-spec): Use `char-db-coded-charset-priority-list' to split a character. --- lisp/utf-2000/char-db-util.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index ce40042..cbf81eb 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -116,6 +116,10 @@ ((symbolp kb) nil))) +(defvar char-db-coded-charset-priority-list + (sort (copy-list default-coded-charset-priority-list) + #'char-attribute-name<)) + (defun char-db-insert-char-spec (char &optional readable column) (unless column (setq column (current-column))) @@ -127,7 +131,10 @@ (if (setq ret (get-char-attribute char 'name)) (setq char-spec (cons (cons 'name ret) char-spec))) ) - ((setq ret (split-char char)) + ((setq ret + (let ((default-coded-charset-priority-list + char-db-coded-charset-priority-list)) + (split-char char))) (setq char-spec (list ret)) (dolist (ccs (delq (car ret) (charset-list))) (if (or (and (>= (charset-iso-final-char ccs) ?0) -- 1.7.10.4