Commit 832ffa7c authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

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

`compile' is not available, fall back to font-lock-warning-face.
parent 66991ff0
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) 2008-01-26 Phil Sung <psung@mit.edu> (tiny change)
* wdired.el (wdired-get-filename): Change `(1+ beg)' to `beg' so * wdired.el (wdired-get-filename): Change `(1+ beg)' to `beg' so
......
...@@ -1036,7 +1036,11 @@ Else, add CODE to the process' sentinel." ...@@ -1036,7 +1036,11 @@ Else, add CODE to the process' sentinel."
;; Deliberate overstatement, but power law respected. ;; Deliberate overstatement, but power law respected.
;; (The message is ephemeral, so we make it loud.) --ttn ;; (The message is ephemeral, so we make it loud.) --ttn
(propertize " (incomplete/in progress)" (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 'help-echo
"A VC command is in progress in this buffer")) "A VC command is in progress in this buffer"))
(let ((previous (process-sentinel proc))) (let ((previous (process-sentinel proc)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment