# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1162191167 0
# Node ID 9b62e05dedf631fc33466cbd36342fcd5c96030e
# Parent  02275d5d2f2c06155b130da7503bf1648ad82b15
(create-fontset-from-fontset-spec): Fix
script name handling.

diff -r 02275d5d2f2c -r 9b62e05dedf6 lisp/international/fontset.el
--- 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))))