--- a/lisp/prim/modeline.el	Mon Aug 13 09:59:07 2007 +0200
+++ b/lisp/prim/modeline.el	Mon Aug 13 10:00:02 2007 +0200
@@ -216,6 +216,11 @@
 (define-key modeline-map 'button3 'modeline-menu)
 
 (make-face 'modeline-mousable "Face for mousable portions of the modeline.")
+(set-face-parent 'modeline-mousable 'modeline)
+(when (featurep 'x)
+  (set-face-foreground 'modeline-mousable "firebrick" 'global '(color x))
+  (set-face-font 'modeline-mousable [bold] nil '(mono x))
+  (set-face-font 'modeline-mousable [bold] nil '(grayscale x)))
 
 (defmacro make-modeline-command-wrapper (command)
   `#'(lambda (event)
@@ -246,6 +251,11 @@
 
 (make-face 'modeline-mousable-minor-mode
 	   "Face for mousable minor-mode strings in the modeline.")
+(set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable)
+(when (featurep 'x)
+  (set-face-foreground 'modeline-mousable-minor-mode
+		       '(((color x) . "green4")
+			 ((color x) . "forestgreen")) 'global))
 
 (defvar modeline-mousable-minor-mode-extent (make-extent nil nil)
   ;; alliteration at its finest.
@@ -261,6 +271,7 @@
 ;;            (append minor-mode-alist
 ;;                    '((isearch-mode isearch-mode))))))
 
+(defvar place)
 (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
   "Add a minor mode to `minor-mode-alist' and `minor-mode-map-alist'.
 TOGGLE is a symbol whose value as a variable specifies whether the
@@ -412,6 +423,14 @@
 
 (make-face 'modeline-buffer-id
 	   "Face for the buffer ID string in the modeline.")
+(set-face-parent 'modeline-buffer-id 'modeline)
+(when (featurep 'x)
+  (set-face-foreground 'modeline-buffer-id "blue4" 'global '(color x)))
+(when (featurep 'x)
+  (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x))
+  (set-face-font 'modeline-buffer-id [bold-italic] nil '(grayscale x)))
+(when (featurep 'tty)
+  (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty))
 
 (defvar modeline-buffer-id-extent (make-extent nil nil)
   "Extent covering the whole of the buffer-id string.")