diff options
| author | Kenichi Handa | 2008-06-13 02:04:37 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-06-13 02:04:37 +0000 |
| commit | e4fe6f9f213df355e8a7360388a650454ac8ffc6 (patch) | |
| tree | 60e196c6f63d531f29e68a0d1ee0969eb15b8e28 | |
| parent | 312ae771c0d460d87613682e969b31262d607594 (diff) | |
| download | emacs-e4fe6f9f213df355e8a7360388a650454ac8ffc6.tar.gz emacs-e4fe6f9f213df355e8a7360388a650454ac8ffc6.zip | |
(set-face-attribute): Fix previous change.
| -rw-r--r-- | lisp/faces.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 2bd1ffcfc8d..f3e88686196 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -706,6 +706,7 @@ like an underlying face would be, with higher priority than underlying faces." | |||
| 706 | ;; when we update the frame's font param fro the attributes. | 706 | ;; when we update the frame's font param fro the attributes. |
| 707 | (let ((inhibit-face-set-after-frame-default t)) | 707 | (let ((inhibit-face-set-after-frame-default t)) |
| 708 | (if (and (eq (car args) :family) | 708 | (if (and (eq (car args) :family) |
| 709 | (stringp (cadr args)) | ||
| 709 | (string-match "\\([^-]*\\)-\\([^-]*\\)" (cadr args))) | 710 | (string-match "\\([^-]*\\)-\\([^-]*\\)" (cadr args))) |
| 710 | (let ((foundry (match-string 1 (cadr args))) | 711 | (let ((foundry (match-string 1 (cadr args))) |
| 711 | (family (match-string 2 (cadr args)))) | 712 | (family (match-string 2 (cadr args)))) |