mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
regexp for paring FONTSET-SPEC (allow spaces after `:').
This commit is contained in:
Kenichi Handa 2006-03-06 02:22:35 +00:00
parent bfc5033751
commit 50e3e56454
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

3
lisp/international/fontset.el
View file

@ -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)