mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(face-set-after-frame-default): Don't change `default' face.

Browse Source 
(minibuffer-prompt): Adopt some default colors.
This commit is contained in:
Richard M. Stallman 2001-12-30 19:39:15 +00:00
parent 3e5c509173
commit d352297c8e
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/faces.el
View File

@ -1595,12 +1595,13 @@ Value is the new frame created."
"Set frame-local faces of FRAME from face specs and resources.
Initialize colors of certain faces from frame parameters."
(dolist (face (face-list))
(face-spec-set face (face-user-default-spec face) frame)
(internal-merge-in-global-face face frame)
(when (and (memq window-system '(x w32 mac))
(or (not (boundp 'inhibit-default-face-x-resources))
(not (eq face 'default))))
(make-face-x-resource-internal face frame)))
(when (not (equal face 'default))
(face-spec-set face (face-user-default-spec face) frame)
(internal-merge-in-global-face face frame)
(when (and (memq window-system '(x w32 mac))
(or (not (boundp 'inhibit-default-face-x-resources))
(not (eq face 'default))))
(make-face-x-resource-internal face frame))))
;; Initialize attributes from frame parameters.
(let ((params '((foreground-color default :foreground)
@ -1767,7 +1768,8 @@ created."
:group 'basic-faces)
(defface minibuffer-prompt '((t ()))
(defface minibuffer-prompt '((((background dark)) (:foreground "cyan"))
(t (:foreground "dark blue")))
"Face for minibuffer prompts."
:version "21.3"
:group 'basic-faces)