From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Julien Danjou Newsgroups: gmane.emacs.devel Subject: Re: Dashes in mode-line Date: Tue, 19 Oct 2010 12:32:33 +0200 Message-ID: <87lj5u1ni6.fsf@keller.adm.naquadah.org> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1287484390 5868 80.91.229.12 (19 Oct 2010 10:33:10 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 19 Oct 2010 10:33:10 +0000 (UTC) Cc: emacs-devel@gnu.org To: Eli Zaretskii Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Oct 19 12:33:08 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1P89VD-0003MP-Ta for ged-emacs-devel@m.gmane.org; Tue, 19 Oct 2010 12:33:08 +0200 Original-Received: from localhost ([127.0.0.1]:59452 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1P89VD-0005Dq-4n for ged-emacs-devel@m.gmane.org; Tue, 19 Oct 2010 06:33:07 -0400 Original-Received: from [140.186.70.92] (port=56513 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1P89Uv-0005BI-Rs for emacs-devel@gnu.org; Tue, 19 Oct 2010 06:32:55 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1P89Uq-0004gU-JG for emacs-devel@gnu.org; Tue, 19 Oct 2010 06:32:49 -0400 Original-Received: from prometheus.naquadah.org ([212.85.154.174]:36899 helo=mx1.naquadah.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1P89Uk-0004fn-SP; Tue, 19 Oct 2010 06:32:39 -0400 Original-Received: by mx1.naquadah.org (Postfix, from userid 8) id CD8315C108; Tue, 19 Oct 2010 12:32:36 +0200 (CEST) Original-Received: from keller.adm.naquadah.org (unknown [IPv6:2a01:e35:2e39:e900:222:faff:fe9d:ce44]) (using TLSv1 with cipher AES256-SHA (256/256 bits)) (No client certificate requested) by mx1.naquadah.org (Postfix) with ESMTPSA id A86E45C0CA; Tue, 19 Oct 2010 12:32:34 +0200 (CEST) Original-Received: from jd by keller.adm.naquadah.org with local (Exim 4.72) (envelope-from ) id 1P89Uf-0006Th-W1; Tue, 19 Oct 2010 12:32:34 +0200 Mail-Followup-To: Eli Zaretskii , emacs-devel@gnu.org In-Reply-To: (Eli Zaretskii's message of "Mon, 18 Oct 2010 10:52:14 -0400") User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:131833 Archived-At: --=-=-= Content-Type: text/plain 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? --=-=-= Content-Type: text/x-diff; charset=utf-8 Content-Disposition: inline; filename=0001-bindings-remove-dashes-in-mode-line.patch Content-Transfer-Encoding: quoted-printable >From 5b9a4ab22ee3928072c23218ae64f54549c0838a Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Mon, 18 Oct 2010 15:33:31 +0200 Subject: [PATCH] bindings: remove dashes in mode-line Signed-off-by: Julien Danjou --- 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 chan= ged name in case you later decide that your changes were a mistake. =20 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. =20 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 + + * bindings.el: Replaces dashes by spaces in default `mode-line-format'. + 2010-10-17 Agust=C3=ADn Mart=C3=ADn =20 * 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)) =20 (standard-mode-line-position `((-3 ,(propertize --=20 1.7.2.3 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable --=20 Julien Danjou // =E1=90=B0 http://julien.danjou.info --=-=-=--