From: Kenichi Handa Date: Mon, 6 Mar 2006 02:22:35 +0000 (+0000) Subject: (create-fontset-from-fontset-spec): Fix X-Git-Tag: emacs-pretest-22.0.90~3776 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50e3e56454a5ea2dc65bc41d5c4eaa4b6f942dfd;p=emacs.git (create-fontset-from-fontset-spec): Fix regexp for paring FONTSET-SPEC (allow spaces after `:'). --- 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 + + * international/fontset.el (create-fontset-from-fontset-spec): Fix + regexp for paring FONTSET-SPEC (allow spaces after `:'). + 2006-03-05 Luc Teirlinck * 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)