mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(set-face-attribute): Simplify by calling

Browse Source 
internal-set-lisp-face-attribute with FRAME being 0.
This commit is contained in:
Gerd Moellmann 2000-09-07 09:50:30 +00:00
parent b14654b94d
commit 70a267c9b5
1 changed files with 7 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/faces.el
View File

@ -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 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 of face names. Attributes from inherited faces are merged into the face
like an underlying face would be, with higher priority than underlying faces." like an underlying face would be, with higher priority than underlying faces."
(setq args (purecopy args)) (let ((where (if (null frame) 0 frame)))
(cond ((null frame) (setq args (purecopy args))
;; Change face on all frames. (while args
(dolist (frame (frame-list)) (internal-set-lisp-face-attribute face (car args)
(let ((list args)) (purecopy (cadr args))
(while list where)
(internal-set-lisp-face-attribute face (car list) (setq args (cdr (cdr args))))))
(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)))))))
(defun make-face-bold (face &optional frame noerror) (defun make-face-bold (face &optional frame noerror)