Commit 3a92c095 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent 1c6d1051
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).
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment