[Emacs-diffs] /srv/bzr/emacs/trunk r104417: Make first mode-line dash an empty space on graphical terminals (Bug#7295).

[Chong Yidong]

------------------------------------------------------------
revno: 104417
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-05-28 19:43:11 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/bindings.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-28 23:30:17 +0000
+++ b/lisp/ChangeLog    2011-05-28 23:43:11 +0000
@@ -12,6 +12,9 @@
 
 2011-05-28  Chong Yidong  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/bindings.el'
--- a/lisp/bindings.el  2011-05-24 08:22:58 +0000
+++ b/lisp/bindings.el  2011-05-28 23:43:11 +0000
@@ -321,7 +321,9 @@
        (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