Mercurial > emacs

diff lisp/vc.el @ 88006:679daa89677a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 24ee99ee0e23
children f1f0d8b05c52
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)))