From 4b89b5e297a9fc832d51f47f02c264308dd6da13 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 30 Oct 2006 06:52:47 +0000 Subject: [PATCH] (create-fontset-from-fontset-spec): Fix script name handling. --- lisp/international/fontset.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index aa68519d495..2047b43aa65 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -790,8 +790,9 @@ which case, the corresponding script is decided by the variable (setq idx (match-end 0)) (setq target (intern (match-string 1 fontset-spec))) (cond ((or (eq target 'ascii) - (memq target (char-table-extra-slot char-script-table 0)) - (setq script (cdr (assq script charset-script-alist)))) + (memq target (char-table-extra-slot char-script-table 0))) + (push (list target (match-string 2 fontset-spec)) fontlist)) + ((setq script (cdr (assq target charset-script-alist))) (push (list script (match-string 2 fontset-spec)) fontlist)) ((charsetp target) (push (list target (match-string 2 fontset-spec)) fontlist)))) -- 2.39.5