# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009741155 0
# Node ID afe645af8f4b9d0a754724a6bd98f7a818d8df8a
# Parent  db303f307b7aad24a557eaba412b24d38983625f
(face-set-after-frame-default): Don't change `default' face.

(minibuffer-prompt): Adopt some default colors.

diff -r db303f307b7a -r afe645af8f4b lisp/faces.el
--- 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)