diff options
| author | Chong Yidong | 2011-05-28 19:43:11 -0400 |
|---|---|---|
| committer | Chong Yidong | 2011-05-28 19:43:11 -0400 |
| commit | 8e6ca83dfede41bbc8d060a4aaa72f2a414f59ae (patch) | |
| tree | c26b298778169f1dca2f1af8110be51bcb7530b5 /lisp/bindings.el | |
| parent | fbeba6e2303014c6ca175bebfcc46d480a2cff9e (diff) | |
| download | emacs-8e6ca83dfede41bbc8d060a4aaa72f2a414f59ae.tar.gz emacs-8e6ca83dfede41bbc8d060a4aaa72f2a414f59ae.zip | |
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") | |||
| 321 | (standard-mode-line-format | 321 | (standard-mode-line-format |
| 322 | (list | 322 | (list |
| 323 | "%e" | 323 | "%e" |
| 324 | (propertize "-" 'help-echo help-echo) | 324 | `(:eval (if (display-graphic-p) |
| 325 | ,(propertize " " 'help-echo help-echo) | ||
| 326 | ,(propertize "-" 'help-echo help-echo))) | ||
| 325 | 'mode-line-mule-info | 327 | 'mode-line-mule-info |
| 326 | 'mode-line-client | 328 | 'mode-line-client |
| 327 | 'mode-line-modified | 329 | 'mode-line-modified |