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

(face-set-after-frame-default): Let face attributes

Browse Source 
specified for new frames override frame parameters.
This commit is contained in:
Gerd Moellmann 2000-11-24 13:16:13 +00:00
parent 9aa5f148ca
commit bdc03dd96f
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/faces.el
View File

@ -1488,14 +1488,16 @@ Initialize colors of certain faces from frame parameters."
(scroll-bar-foreground scroll-bar :foreground)
(scroll-bar-background scroll-bar :background)
(mouse-color mouse :background))))
(while params
(let ((param-name (nth 0 (car params)))
(face (nth 1 (car params)))
(attr (nth 2 (car params)))
value)
(when (setq value (frame-parameter frame param-name))
(set-face-attribute face frame attr value)))
(setq params (cdr params)))))
(dolist (param params)
(let ((frame-param (frame-parameter frame (nth 0 param)))
(face (nth 1 param))
(attr (nth 2 param)))
(when (and frame-param
;; Don't override face attributes explicitly
;; specified for new frames.
(eq (face-attribute face attr t) 'unspecified))
(set-face-attribute face frame attr frame-param))))))
(defun tty-handle-reverse-video (frame parameters)
"Handle the reverse-video frame parameter for terminal frames."