changeset 88006:679daa89677a

(vc-exec-after): For mode-line-process highlighting, if feature `compile' is not available, fall back to font-lock-warning-face.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sat, 26 Jan 2008 20:02:27 +0000
parents 858074177461
children eb1cd1748c3a
files lisp/vc.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Sat Jan 26 19:46:17 2008 +0000
+++ b/lisp/vc.el	Sat Jan 26 20:02:27 2008 +0000
@@ -1036,7 +1036,11 @@
             ;; Deliberate overstatement, but power law respected.
             ;; (The message is ephemeral, so we make it loud.)  --ttn
             (propertize " (incomplete/in progress)"
-                        'face 'compilation-warning
+                        'face (if (featurep 'compile)
+                                  ;; ttn's preferred loudness
+                                  'compilation-warning
+                                ;; suitably available fallback
+                                font-lock-warning-face)
 			'help-echo
 			"A VC command is in progress in this buffer"))
       (let ((previous (process-sentinel proc)))