Mercurial > emacs

diff lisp/international/fontset.el @ 90644:9b62e05dedf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(create-fontset-from-fontset-spec): Fix script name handling.
author Kenichi Handa <handa@m17n.org>
date Mon, 30 Oct 2006 06:52:47 +0000
parents d9cb37754a26
children 5b24bb105d42
line wrap: on
line diff
--- a/lisp/international/fontset.el	Mon Oct 30 06:52:04 2006 +0000
+++ b/lisp/international/fontset.el	Mon Oct 30 06:52:47 2006 +0000
@@ -790,8 +790,9 @@
       (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))))