master 27600ad673: Make the ediff control panel mode line prettier

[Lars Ingebrigtsen]

branch: master
commit 27600ad6738a7bdf219b858b0805c11d189533ee
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make the ediff control panel mode line prettier
    
    * lisp/vc/ediff-wind.el (ediff-refresh-mode-lines): Don't include
    "Quick Help" in the mode line in the plain version (bug#12840).
    (ediff-make-wide-control-buffer-id): Make the informative part of
    the mode line bold.  (Code from Michael Heerdegen.)
---
 lisp/vc/ediff-wind.el | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/lisp/vc/ediff-wind.el b/lisp/vc/ediff-wind.el
index 1e702edb41..4549b910b1 100644
--- a/lisp/vc/ediff-wind.el
+++ b/lisp/vc/ediff-wind.el
@@ -1135,7 +1135,10 @@ It assumes that it is called from within the control 
buffer."
     (setq mode-line-format
          (if (ediff-narrow-control-frame-p)
              (list "   " mode-line-buffer-identification)
-           (list "-- " mode-line-buffer-identification "        Quick Help")))
+           (list "-- " mode-line-buffer-identification
+                  (and (not (eq ediff-window-setup-function
+                                'ediff-setup-windows-plain))
+                       "        Quick Help"))))
     ;; control buffer id
     (setq mode-line-buffer-identification
          (if (ediff-narrow-control-frame-p)
@@ -1213,18 +1216,20 @@ It assumes that it is called from within the control 
buffer."
    ediff-control-buffer-suffix))
 
 (defun ediff-make-wide-control-buffer-id ()
-  (cond ((< ediff-current-difference 0)
-        (list (format "%%b   At start of %d diffs"
-                      ediff-number-of-differences)))
-       ((>= ediff-current-difference ediff-number-of-differences)
-        (list (format "%%b   At end of %d diffs"
-                      ediff-number-of-differences)))
-       (t
-        (list (format "%%b   diff %d of %d"
-                      (1+ ediff-current-difference)
-                      ediff-number-of-differences)))))
-
-
+  (list
+   (concat "%b   "
+           (propertize
+            (cond ((< ediff-current-difference 0)
+                   (format "At start of %d diffs"
+                           ediff-number-of-differences))
+                  ((>= ediff-current-difference ediff-number-of-differences)
+                   (format "At end of %d diffs"
+                           ediff-number-of-differences))
+                  (t
+                   (format "diff %d of %d"
+                           (1+ ediff-current-difference)
+                           ediff-number-of-differences)))
+            'face 'mode-line-buffer-id))))
 
 ;; If buff is not live, return nil
 (defun ediff-get-visible-buffer-window (buff)