From: Kenichi Handa Date: Mon, 30 Oct 2006 06:52:47 +0000 (+0000) Subject: (create-fontset-from-fontset-spec): Fix X-Git-Tag: emacs-pretest-23.0.90~8295^2~706 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b89b5e297a9fc832d51f47f02c264308dd6da13;p=emacs.git (create-fontset-from-fontset-spec): Fix script name handling. --- 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))))