Re: Dashes in mode-line

[Julien Danjou <julien@danjou.info>]

[-- Attachment #1: Type: text/plain, Size: 182 bytes --]

On Mon, Oct 18 2010, Eli Zaretskii wrote:

> I would support removing it in GUI sessions, but doing that on a TTY
> sounds too drastic.

What do you think about the following then?


[-- Attachment #2: 0001-bindings-remove-dashes-in-mode-line.patch --]
[-- Type: text/x-diff, Size: 3619 bytes --]

From 5b9a4ab22ee3928072c23218ae64f54549c0838a Mon Sep 17 00:00:00 2001
From: Julien Danjou <julien@danjou.info>
Date: Mon, 18 Oct 2010 15:33:31 +0200
Subject: [PATCH] bindings: remove dashes in mode-line

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 etc/tutorials/TUTORIAL |   12 ++++++------
 lisp/ChangeLog         |    4 ++++
 lisp/bindings.el       |   11 ++++++-----
 3 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/etc/tutorials/TUTORIAL b/etc/tutorials/TUTORIAL
index 1d80f4e..f566df9 100644
--- a/etc/tutorials/TUTORIAL
+++ b/etc/tutorials/TUTORIAL
@@ -498,12 +498,12 @@ you save, Emacs leaves the original file under a changed name in case
 you later decide that your changes were a mistake.
 
 If you look near the bottom of the screen you will see a line that
-begins and ends with dashes, and starts with "--:--- TUTORIAL" or
-something like that.  This part of the screen normally shows the name
-of the file that you are visiting.  Right now, you are visiting a file
-called "TUTORIAL" which is your personal scratch copy of the Emacs
-tutorial.  When you find a file with Emacs, that file's name will
-appear in that precise spot.
+begins with dashes, and starts with "--:--- TUTORIAL" or something
+like that.  This part of the screen normally shows the name of the
+file that you are visiting.  Right now, you are visiting a file called
+"TUTORIAL" which is your personal scratch copy of the Emacs tutorial.
+When you find a file with Emacs, that file's name will appear in that
+precise spot.
 
 One special thing about the command for finding a file is that you
 have to say what file name you want.  We say the command "reads an
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e20ffd..2316a22 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-18  Julien Danjou  <julien@danjou.info>
+
+	* bindings.el: Replaces dashes by spaces in default `mode-line-format'.
+
 2010-10-17  Agustín Martín  <agustin.martin@hispalinux.es>
 
 	* textmodes/ispell.el (ispell-aspell-find-dictionary): Fix
diff --git a/lisp/bindings.el b/lisp/bindings.el
index d19db2c..2b11f44 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -318,7 +318,7 @@ Keymap to display on column and line numbers.")
 mouse-2: Make current window occupy the whole frame\n\
 mouse-3: Remove current window from display")
        (recursive-edit-help-echo "Recursive edit, type C-M-c to get out")
-       (dashes (propertize "--" 'help-echo help-echo))
+       (spaces (propertize "  " 'help-echo help-echo))
        (standard-mode-line-format
 	(list
 	 "%e"
@@ -334,9 +334,10 @@ mouse-3: Remove current window from display")
 	 '(vc-mode vc-mode)
 	 (propertize "  " 'help-echo help-echo)
 	 'mode-line-modes
-	 `(which-func-mode ("" which-func-format ,dashes))
-	 `(global-mode-string ("" global-mode-string ,dashes))
-	 (propertize "-%-" 'help-echo help-echo)))
+	 `(which-func-mode ("" which-func-format ,spaces))
+	 `(global-mode-string ("" global-mode-string ,spaces))
+         `(:eval (unless window-system
+                   ,(propertize "-%-" 'help-echo help-echo)))))
        (standard-mode-line-modes
 	(list
 	 (propertize "%[" 'help-echo recursive-edit-help-echo)
@@ -362,7 +363,7 @@ mouse-3: Toggle minor modes"
 				 'mouse-2 #'mode-line-widen))
 	 (propertize ")" 'help-echo help-echo)
 	 (propertize "%]" 'help-echo recursive-edit-help-echo)
-	 (propertize "--" 'help-echo help-echo)))
+         spaces))
 
        (standard-mode-line-position
 	`((-3 ,(propertize
-- 
1.7.2.3


[-- Attachment #3: Type: text/plain, Size: 79 bytes --]


-- 
Julien Danjou
// ᐰ <julien@danjou.info>   http://julien.danjou.info