diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2008-02-29 22:09:56 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2008-02-29 22:09:56 +0000 |
| commit | 14b7b2c492544dff9ba8c4e7d081120c21674a0c (patch) | |
| tree | ec456bb8397326096bede08290af5eb8503ff2b1 /lisp | |
| parent | 6867f3ddf625a36eb640df83780554561d1fb619 (diff) | |
| download | emacs-14b7b2c492544dff9ba8c4e7d081120c21674a0c.tar.gz | |
(vc-set-mode-line-busy-indicator): Use shorter message
and quieter face (not a warning).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index ceed375639d..ab9277a35f1 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1063,14 +1063,8 @@ BUF defaults to \"*vc*\", can be a string and will be created if necessary." (defun vc-set-mode-line-busy-indicator () (setq mode-line-process - ;; Deliberate overstatement, but power law respected. - ;; (The message is ephemeral, so we make it loud.) --ttn - (propertize " (incomplete/in progress)" - 'face (if (featurep 'compile) - ;; ttn's preferred loudness - 'compilation-warning - ;; suitably available fallback - font-lock-warning-face) + (propertize " [waiting...]" + 'face 'font-lock-variable-name-face 'help-echo "A VC command is in progress in this buffer"))) |