# HG changeset patch # User Kenichi Handa # Date 1141611703 0 # Node ID 5e2f7c7f5f4b600d8b0df674f6c9ffa5a7418727 # Parent 409217fd29ea167b1f176c4ced935076c3b073a3 (create-fontset-from-fontset-spec): Fix regexp for paring FONTSET-SPEC (allow spaces after `:'). diff -r 409217fd29ea -r 5e2f7c7f5f4b lisp/international/fontset.el --- a/lisp/international/fontset.el Mon Mar 06 01:46:41 2006 +0000 +++ b/lisp/international/fontset.el Mon Mar 06 02:21:43 2006 +0000 @@ -542,7 +542,8 @@ (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)