From 832ffa7c8ef161baba18792b6e26065c19d5b15c Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 26 Jan 2008 20:04:49 +0000 Subject: [PATCH] (vc-exec-after): For mode-line-process highlighting, if feature `compile' is not available, fall back to font-lock-warning-face. --- lisp/ChangeLog | 7 ++++++- lisp/vc.el | 6 +++++- 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 (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))) -- 2.39.2