(vc-exec-after): For mode-line-process highlighting, if feature

`compile' is not available, fall back to font-lock-warning-face.

2 files changed, 11 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e67505cb70..9d87c313f3a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
-2008-01-26  Phil Sung <psung@mit.edu> (tiny change)
+2008-01-26  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+        * vc.el (vc-exec-after): For mode-line-process highlighting, if
+        `compile' is not available, fall back to font-lock-warning-face.
+
+2008-01-26  Phil Sung  <psung@mit.edu> (tiny change)
 
         * wdired.el (wdired-get-filename): Change `(1+ beg)' to `beg' so
         that the filename end is found even when the filename is empty.
diff --git a/lisp/vc.el b/lisp/vc.el
index 0069c124866..ce212314491 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1036,7 +1036,11 @@ Else, add CODE to the process' sentinel."
             ;; 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)))