Commit 70a267c9 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(set-face-attribute): Simplify by calling

internal-set-lisp-face-attribute with FRAME being 0.
parent b14654b9
......@@ -546,26 +546,13 @@ must be t or nil in that case. A value of `unspecified' is not allowed.
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)
......
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