cvs server: Diffing lisp
Index: lisp/bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.130
diff -u -r1.130 bindings.el
--- lisp/bindings.el	1 May 2004 03:50:24 -0000	1.130
+++ lisp/bindings.el	4 May 2004 22:36:46 -0000
@@ -303,10 +303,12 @@
     (list
      (propertize "%[(" 'help-echo help-echo)
      `(:propertize ("" mode-name)
+                   face mode-line-major-mode
 		   help-echo "mouse-2: help for current major mode"
 		   local-map ,mode-line-major-mode-keymap)
      '("" mode-line-process)
      `(:propertize ("" minor-mode-alist)
+                   face mode-line-minor-mode
 		   help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu"
 		   local-map ,mode-line-minor-mode-keymap)
      (propertize "%n" 'help-echo "mouse-2: widen"
Index: lisp/faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.283
diff -u -r1.283 faces.el
--- lisp/faces.el	26 Mar 2004 15:12:33 -0000	1.283
+++ lisp/faces.el	4 May 2004 22:36:46 -0000
@@ -1828,9 +1828,31 @@
   :group 'modeline
   :group 'basic-faces)
 
+(defface mode-line-major-mode
+  '((((type x w32 mac) (class color))
+     :foreground "red")
+    (t
+     :background "red"))
+  "Face used to indicate `major-mode' in the mode line."
+  :version "21.4"
+  :group 'modeline
+  :group 'basic-faces)
+
+(defface mode-line-minor-mode
+  '((((type x w32 mac) (class color))
+     :foreground "green4")
+    (t
+     :background "green"))
+  "Face used to indicate minor modes in the mode line."
+  :version "21.4"
+  :group 'modeline
+  :group 'basic-faces)
+
 ;; Make `modeline' an alias for `mode-line', for compatibility.
 (put 'modeline 'face-alias 'mode-line)
 (put 'modeline-inactive 'face-alias 'mode-line-inactive)
+(put 'modeline-major-mode 'face-alias 'mode-line-major-mode)
+(put 'modeline-minor-mode 'face-alias 'mode-line-minor-mode)
 
 (defface header-line
   '((t
cvs server: Diffing lisp/calc
cvs server: Diffing lisp/calendar
cvs server: Diffing lisp/emacs-lisp
cvs server: Diffing lisp/emulation
cvs server: Diffing lisp/eshell
cvs server: Diffing lisp/gnus
cvs server: Diffing lisp/international
cvs server: Diffing lisp/language
cvs server: Diffing lisp/mail
cvs server: Diffing lisp/mh-e
cvs server: Diffing lisp/net
cvs server: Diffing lisp/obsolete
cvs server: Diffing lisp/play
cvs server: Diffing lisp/progmodes
cvs server: Diffing lisp/term
cvs server: Diffing lisp/textmodes
cvs server: Diffing lisp/toolbar
cvs server: Diffing lisp/url