procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* international/fontset.el (create-fontset-from-fontset-spec): Doc fix.

Browse source
This commit is contained in:
Juanma Barranquero 2009-01-11 04:05:32 +00:00
parent e8f642e7ea
commit 6fcec85ef3
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-01-11 Juanma Barranquero <lekktu@gmail.com>
* international/fontset.el (create-fontset-from-fontset-spec): Doc fix.
2009-01-11 Glenn Morris <rgm@gnu.org>
* diff-mode.el (whitespace-style, whitespace-trailing-regexp):

6
lisp/international/fontset.el
View file

@ -499,7 +499,7 @@
symbol
braille
yi
aegean-number
aegean-number
ancient-greek-number
ancient-symbol
phaistos-disc
@ -912,7 +912,7 @@ to map charsets to scripts.")
&optional style-variant noerror)
"Create a fontset from fontset specification string FONTSET-SPEC.
FONTSET-SPEC is a string of the format:
FONTSET-NAME,SCRIPT0:FONT0,SCRIPT1:FONT1, ...
FONTSET-NAME,SCRIPT-NAME0:FONT-NAME0,SCRIPT-NAME1:FONT-NAME1, ...
Any number of SPACE, TAB, and NEWLINE can be put before and after commas.
When a frame uses the fontset as the `font' parameter, the frame's
@ -938,7 +938,7 @@ which case, the corresponding script is decided by the variable
(error "Fontset name \"%s\" not conforming to XLFD" name))
(setq default-spec (font-spec :name name))
;; At first, extract pairs of charset and fontname from FONTSET-SPEC.
(while (string-match "[, \t\n]*\\([^:]+\\):[ \t]*\\([^,]+\\)"
(while (string-match "[, \t\n]*\\([^:]+\\):[ \t]*\\([^,]+\\)"
fontset-spec idx)
(setq idx (match-end 0))
(setq target (intern (match-string 1 fontset-spec)))