Mercurial > emacs

diff lisp/international/fontset.el @ 90348:c98f49021a42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(create-fontset-from-fontset-spec): Fix regexp for paring FONTSET-SPEC (allow spaces after `:').
author Kenichi Handa <handa@m17n.org>
date Mon, 06 Mar 2006 02:16:23 +0000
parents d4661241b1fa
children 8a1866284f74
line wrap: on
line diff
--- a/lisp/international/fontset.el	Sat Mar 04 02:59:26 2006 +0000
+++ b/lisp/international/fontset.el	Mon Mar 06 02:16:23 2006 +0000
@@ -676,7 +676,8 @@
 	(error "Fontset name \"%s\" not conforming to XLFD" name))
 
     ;; At first, extract pairs of charset and fontname from FONTSET-SPEC.
-    (while (string-match "[, \t\n]*\\([^:]+\\):\\([^,]+\\)" fontset-spec idx)
+    (while (string-match "[, \t\n]*\\([^:]+\\):[ \t]*\\([^,]+\\)" 
+			 fontset-spec idx)
       (setq idx (match-end 0))
       (setq target (intern (match-string 1 fontset-spec)))
       (cond ((or (eq target 'ascii)
@@ -746,6 +747,7 @@
 	fontset-spec)
     (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx)
 					      (format "Fontset-%d" idx)))
+      (message "%s" fontset-spec)
       (create-fontset-from-fontset-spec fontset-spec t 'noerror)
       (setq idx (1+ idx)))))