mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

More uses of error' and warning' faces.

Browse Source 
* 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
This commit is contained in:
Juri Linkov 2011-08-24 21:09:18 +03:00
parent 6a93965ee8
commit f22f4808a0
4 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ChangeLog
View File

@ -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> 2011-08-24 Juri Linkov <juri@jurta.org>
* faces.el (success): Change face color from "Green3" to * faces.el (success): Change face color from "Green3" to

2
lisp/battery.el
View File

@ -199,7 +199,7 @@ seconds."
'face 'face
(and (<= (car (read-from-string (cdr (assq ?p data)))) (and (<= (car (read-from-string (cdr (assq ?p data))))
battery-load-critical) battery-load-critical)
'font-lock-warning-face) 'error)
'help-echo "Battery status information"))) 'help-echo "Battery status information")))
(force-mode-line-update)) (force-mode-line-update))

4
lisp/ibuffer.el
View File

@ -356,12 +356,12 @@ directory, like `default-directory'."
:type 'hook :type 'hook
:group 'ibuffer) :group 'ibuffer)
(defcustom ibuffer-marked-face 'font-lock-warning-face (defcustom ibuffer-marked-face 'warning
"Face used for displaying marked buffers." "Face used for displaying marked buffers."
:type 'face :type 'face
:group 'ibuffer) :group 'ibuffer)
(defcustom ibuffer-deletion-face 'font-lock-type-face (defcustom ibuffer-deletion-face 'error
"Face used for displaying buffers marked for deletion." "Face used for displaying buffers marked for deletion."
:type 'face :type 'face
:group 'ibuffer) :group 'ibuffer)

2
lisp/proced.el
View File

@ -395,7 +395,7 @@ It is a list of lists (KEY PREDICATE REVERSE).")
:group 'proced-faces) :group 'proced-faces)
(defface proced-marked (defface proced-marked
'((t (:inherit font-lock-warning-face))) '((t (:inherit error)))
"Face used for marked processes." "Face used for marked processes."
:group 'proced-faces) :group 'proced-faces)