Mercurial > emacs
changeset 31439:d7a98f35b441
(set-face-attribute): Simplify by calling
internal-set-lisp-face-attribute with FRAME being 0.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 07 Sep 2000 09:50:30 +0000 |
| parents | 55a7016ebd69 |
| children | 67f5b4186ed2 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 7 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Thu Sep 07 09:49:56 2000 +0000 +++ b/lisp/faces.el Thu Sep 07 09:50:30 2000 +0000 @@ -546,26 +546,13 @@ VALUE is the name of a face from which to inherit attributes, or a list of face names. Attributes from inherited faces are merged into the face like an underlying face would be, with higher priority than underlying faces." - (setq args (purecopy args)) - (cond ((null frame) - ;; Change face on all frames. - (dolist (frame (frame-list)) - (let ((list args)) - (while list - (internal-set-lisp-face-attribute face (car list) - (cadr list) frame) - (setq list (cdr (cdr list)))))) - ;; Record that as a default for new frames. - (while args - (internal-set-lisp-face-attribute face (car args) - (cadr args) t) - (setq args (cdr (cdr args))))) - (t - (while args - (internal-set-lisp-face-attribute face (car args) - (purecopy (cadr args)) - frame) - (setq args (cdr (cdr args))))))) + (let ((where (if (null frame) 0 frame))) + (setq args (purecopy args)) + (while args + (internal-set-lisp-face-attribute face (car args) + (purecopy (cadr args)) + where) + (setq args (cdr (cdr args)))))) (defun make-face-bold (face &optional frame noerror)