diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-05-28 19:43:11 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-05-28 19:43:11 -0400 |
| commit | 8e6ca83dfede41bbc8d060a4aaa72f2a414f59ae (patch) | |
| tree | c26b298778169f1dca2f1af8110be51bcb7530b5 /lisp/bindings.el | |
| parent | fbeba6e2303014c6ca175bebfcc46d480a2cff9e (diff) | |
| download | emacs-8e6ca83dfede41bbc8d060a4aaa72f2a414f59ae.tar.gz | |
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.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 63c83ada9ba..ffc797966b8 100644 --- 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 |