From 50e3e56454a5ea2dc65bc41d5c4eaa4b6f942dfd Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 6 Mar 2006 02:22:35 +0000 Subject: [PATCH] (create-fontset-from-fontset-spec): Fix regexp for paring FONTSET-SPEC (allow spaces after `:'). --- lisp/ChangeLog | 5 +++++ lisp/international/fontset.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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) -- 2.39.2