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 | |
| 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')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/bindings.el | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f6e5241de8f..ee03aeccb10 100644 --- 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 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 |