Commit c917476d authored by Chong Yidong's avatar Chong Yidong
Browse files

Fix setting family and foundry in set-face-attribute (Bug#5536).

* faces.el (set-face-attribute): Allow calling
internal-set-lisp-face-attribute with 'unspecified family and
foundry argument (Bug#5536).
parent 7cf3f3d6
2010-02-07 sj <prime.wizard+emacs@gmail.com> (tiny change)
* faces.el (set-face-attribute): Allow calling
internal-set-lisp-face-attribute with 'unspecified family and
foundry argument (Bug#5536).
2010-02-07 Glenn Morris <rgm@gnu.org>
* progmodes/f90.el (f90-font-lock-keywords-2)
......
......@@ -735,10 +735,10 @@ like an underlying face would be, with higher priority than underlying faces."
(unless foundry
(setq foundry (match-string 1 family)))
(setq family (match-string 2 family)))
(when (stringp family)
(when (or (stringp family) (eq family 'unspecified))
(internal-set-lisp-face-attribute face :family (purecopy family)
where))
(when (stringp foundry)
(when (or (stringp foundry) (eq foundry 'unspecified))
(internal-set-lisp-face-attribute face :foundry (purecopy foundry)
where)))
(while args
......
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