From 8e6ca83dfede41bbc8d060a4aaa72f2a414f59ae Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 28 May 2011 19:43:11 -0400 Subject: [PATCH] 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. --- lisp/ChangeLog | 3 +++ lisp/bindings.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f6e5241de8..ee03aeccb1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -12,6 +12,9 @@ 2011-05-28 Chong Yidong + * 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 63c83ada9b..ffc797966b 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 -- 2.20.1