(create-fontset-from-fontset-spec): Fix

script name handling.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index aa68519d495629eb3f5cb4c6f4b9450e4130167e..2047b43aa6551a6e68f4aacdb769f24e9c33ae09 100644 (file)
--- 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))))