Mercurial > emacs
changeset 69294:5e2f7c7f5f4b
(create-fontset-from-fontset-spec): Fix
regexp for paring FONTSET-SPEC (allow spaces after `:').
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 06 Mar 2006 02:21:43 +0000 |
| parents | 409217fd29ea |
| children | 72ea16b87901 |
| files | lisp/international/fontset.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)