Mercurial > emacs
changeset 95864:1388820636da
(set-face-attribute): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 13 Jun 2008 02:04:37 +0000 |
| parents | d4b7c9244713 |
| children | 99530dd346d3 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Fri Jun 13 02:01:07 2008 +0000 +++ b/lisp/faces.el Fri Jun 13 02:04:37 2008 +0000 @@ -706,6 +706,7 @@ ;; when we update the frame's font param fro the attributes. (let ((inhibit-face-set-after-frame-default t)) (if (and (eq (car args) :family) + (stringp (cadr args)) (string-match "\\([^-]*\\)-\\([^-]*\\)" (cadr args))) (let ((foundry (match-string 1 (cadr args))) (family (match-string 2 (cadr args))))