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

(minibuffer-prompt): Adopt some default colors.

diff --git a/lisp/faces.el b/lisp/faces.el
index 10f27f8b8e1eb679e5448b91791ac97c099c849f..c564202cab15fdc3b9ba11483c4eaf3fa9537f78 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -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)