ttn pushed a commit to branch ttn-gnugo
in repository elpa.
commit 202e2b22d78a50de1f0292525982bdbaece11c78
Author: Thien-Thi Nguyen <t...@gnu.org>
Date: Wed Feb 19 11:36:10 2014 +0100
[gnugo] Make proc-status change mode-line elem more informative.
* packages/gnugo/gnugo.el (gnugo-sentinel): ...here,
by including the passed-in STRING, w/ ‘font-lock-warning-face’.
---
packages/gnugo/gnugo.el | 6 +++++-
1 files changed, 5 insertions(+), 1 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 1d1166c..7e39431 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -313,7 +313,11 @@ Handle the big, slow-to-render, and/or uninteresting ones
specially."
(let ((buf (process-buffer proc)))
(when (buffer-live-p buf)
(with-current-buffer buf
- (setq mode-line-process '( " [%s]"))
+ (setq mode-line-process
+ (list " [%s ("
+ (propertize (car (split-string string))
+ 'face 'font-lock-warning-face)
+ ")]"))
(when (eq proc (gnugo-get :proc))
(gnugo-put :proc nil))))))))
