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

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

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ff7cfe2883..73ea842b8e5 100644
--- 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 1e5c9508f4e..e42ab3e5ee9 100644
--- 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)