Make first mode-line dash an empty space on graphical terminals (Bug#7295).

* lisp/bindings.el (help-echo): Make the initial non-indicator dash
empty on graphical terminals.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f6e5241de8f6d59befcc05cac8a80c4a08fd5256..ee03aeccb10fc2fe8667cc6109c6af56eef6ed1c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,6 +12,9 @@
 
 2011-05-28  Chong Yidong  <cyd@stupidchicken.com>
 
+       * bindings.el (help-echo): Make the initial non-indicator dash
+       empty on graphical terminals (Bug#7295).
+
        * files.el (auto-mode-alist): Move config rule after the
        in-stripping one (Bug#8547).
 

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 63c83ada9bac6b8c336bac53fb2900a9ccf23c00..ffc797966b8fff128ae49e71a1e49f08dc7c8138 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -321,7 +321,9 @@ mouse-3: Remove current window from display")
        (standard-mode-line-format
        (list
         "%e"
-        (propertize "-" 'help-echo help-echo)
+        `(:eval (if (display-graphic-p)
+                    ,(propertize " " 'help-echo help-echo)
+                  ,(propertize "-" 'help-echo help-echo)))
         'mode-line-mule-info
         'mode-line-client
         'mode-line-modified