From: Thien-Thi Nguyen Date: Sat, 26 Jan 2008 20:04:49 +0000 (+0000) Subject: (vc-exec-after): For mode-line-process highlighting, if feature X-Git-Tag: emacs-pretest-23.0.90~8385 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=832ffa7c8ef161baba18792b6e26065c19d5b15c;p=emacs.git (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 1e67505cb70..9d87c313f3a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,9 @@ -2008-01-26 Phil Sung (tiny change) +2008-01-26 Thien-Thi Nguyen + + * 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 (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)))