More uses of `error' and `warning' faces.

* lisp/battery.el (battery-update): Use the face `error' instead of
`font-lock-warning-face'.

* lisp/ibuffer.el (ibuffer-marked-face): Change default face from
`font-lock-warning-face' to `warning'.
(ibuffer-deletion-face): Change default face from
`font-lock-type-face' to `error'.

* lisp/proced.el (proced-marked): Inherit from `error' instead of
`font-lock-warning-face'.

Fixes: debbugs:6117

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75ab64a1cfc7d022b1381885f266359f4b807509..762779cc01ea938c31fc83d9fdb4fc55c3b9abb0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2011-08-24  Juri Linkov  <juri@jurta.org>
+
+       * proced.el (proced-marked): Inherit from `error' instead of
+       `font-lock-warning-face'.
+
+       * ibuffer.el (ibuffer-marked-face): Change default face from
+       `font-lock-warning-face' to `warning'.
+       (ibuffer-deletion-face): Change default face from
+       `font-lock-type-face' to `error'.
+
+       * battery.el (battery-update): Use the face `error' instead of
+       `font-lock-warning-face' (bug#6117).
+
 2011-08-24  Juri Linkov  <juri@jurta.org>
 
        * faces.el (success): Change face color from "Green3" to

diff --git a/lisp/battery.el b/lisp/battery.el
index d7d3045fa581725f0494c977e50e64adfe1515ae..e0bba96b6557f5e5d613f270b3a5516cd99a087d 100644 (file)
--- a/lisp/battery.el
+++ b/lisp/battery.el
@@ -199,7 +199,7 @@ seconds."
                      'face
                      (and (<= (car (read-from-string (cdr (assq ?p data))))
                                   battery-load-critical)
-                          'font-lock-warning-face)
+                          'error)
                      'help-echo "Battery status information")))
   (force-mode-line-update))
 \f

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 725192399ffae1f83aeed69d3c8634041047fdf3..5a86508e144eef41d1e7bd4a6fc23015f7cf835c 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -356,12 +356,12 @@ directory, like `default-directory'."
   :type 'hook
   :group 'ibuffer)
 
-(defcustom ibuffer-marked-face 'font-lock-warning-face
+(defcustom ibuffer-marked-face 'warning
   "Face used for displaying marked buffers."
   :type 'face
   :group 'ibuffer)
 
-(defcustom ibuffer-deletion-face 'font-lock-type-face
+(defcustom ibuffer-deletion-face 'error
   "Face used for displaying buffers marked for deletion."
   :type 'face
   :group 'ibuffer)

diff --git a/lisp/proced.el b/lisp/proced.el
index 94ea579ebd84617f2bdd3318452363c8a7923591..e4987bd926cd3524ffa0e061c9bd371c27babc89 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -395,7 +395,7 @@ It is a list of lists (KEY PREDICATE REVERSE).")
   :group 'proced-faces)
 
 (defface proced-marked
-  '((t (:inherit font-lock-warning-face)))
+  '((t (:inherit error)))
   "Face used for marked processes."
   :group 'proced-faces)