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

(set-face-attribute): Fix handling of :family "FOUNDRY-FAMILY".

Browse source
This commit is contained in:
Kenichi Handa 2009-05-19 01:28:54 +00:00
parent 1c6d1051f1
commit 3a92c09593
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-05-19 Kenichi Handa <handa@m17n.org>
* faces.el (set-face-attribute): Fix handling of :family
"FOUNDRY-FAMILY".
2009-05-18 Chong Yidong <cyd@stupidchicken.com>
* register.el (register-alist): Doc fix (Bug#3311).

4
lisp/faces.el
View file

@ -725,8 +725,8 @@ like an underlying face would be, with higher priority than underlying faces."
(when (and (stringp family)
(string-match "\\([^-]*\\)-\\([^-]*\\)" family))
(unless foundry
(setq foundry (match-string 2 family)))
(setq family (match-string 1 family)))
(setq foundry (match-string 1 family)))
(setq family (match-string 2 family)))
(when (stringp family)
(internal-set-lisp-face-attribute face :family (purecopy family)
where))