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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e67505cb70d0d0e9f2ab21909cbcb4137f49d8a..9d87c313f3aad636e52472ccf458f548106cedb3 100644 (file)
--- 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 0069c124866512b924a05b1408807a130c38678e..ce2123144918b60168f671d804910b43f8ce135f 100644 (file)
--- 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)))