Mercurial > emacs
changeset 42431:afe645af8f4b
(face-set-after-frame-default): Don't change `default' face.
(minibuffer-prompt): Adopt some default colors.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Dec 2001 19:39:15 +0000 |
| parents | db303f307b7a |
| children | c629dcecd1ca |
| files | lisp/faces.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Sun Dec 30 19:37:47 2001 +0000 +++ b/lisp/faces.el Sun Dec 30 19:39:15 2001 +0000 @@ -1595,12 +1595,13 @@ "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 @@ :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)