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

regexp for paring FONTSET-SPEC (allow spaces after `:').

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ff7cfe..73ea842 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-06  Kenichi Handa  <handa@m17n.org>
+
+       * international/fontset.el (create-fontset-from-fontset-spec): Fix
+       regexp for paring FONTSET-SPEC (allow spaces after `:').
+
 2006-03-05  Luc Teirlinck  <teirllm@auburn.edu>
 
        * progmodes/gud.el (gud-jdb-marker-filter): Double quote `[' in

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 1e5c950..e42ab3e 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -542,7 +542,8 @@ It returns a name of the created fontset."
          (error "Fontset \"%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 charset (intern (match-string 1 fontset-spec)))
        (if (charsetp charset)