From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: ams@kemisten.nu (Alfred M. Szmidt) Newsgroups: gmane.emacs.devel Subject: Re: Moving mode-line-position before global-mode-string in mode-line-format. Date: 26 Jul 2002 17:59:11 +0200 Sender: emacs-devel-admin@gnu.org Message-ID: <87bs8ulbu8.fsf@lgh163a.kemisten.nu> References: <87r8hr6aoe.fsf@lgh163a.kemisten.nu> <200207261536.g6QFaSu09016@aztec.santafe.edu> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1027699210 19412 127.0.0.1 (26 Jul 2002 16:00:10 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 26 Jul 2002 16:00:10 +0000 (UTC) Cc: emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17Y7Vd-00052w-00 for ; Fri, 26 Jul 2002 18:00:05 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17Y7lT-0000ft-00 for ; Fri, 26 Jul 2002 18:16:28 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17Y7Vo-0005o8-00; Fri, 26 Jul 2002 12:00:16 -0400 Original-Received: from mailhost.bonet.ac ([194.165.224.191]) by fencepost.gnu.org with esmtp (Exim 3.35 #1 (Debian)) id 17Y7Ue-0005me-00; Fri, 26 Jul 2002 11:59:04 -0400 Original-Received: from lgh163a.kemisten.nu (lgh163a.kemisten.nu [212.32.172.173]) by mailhost.bonet.ac (8.8.8/8.8.8) with ESMTP id RAA11468; Fri, 26 Jul 2002 17:59:03 +0200 (MET DST) Original-Received: from ams by lgh163a.kemisten.nu with local (Exim 3.35 #1 (Debian)) id 17Y7Ul-00010T-00; Fri, 26 Jul 2002 17:59:11 +0200 Original-To: rms@gnu.org In-Reply-To: <200207261536.g6QFaSu09016@aztec.santafe.edu> Original-Lines: 44 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:6063 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:6063 Richard Stallman writes: > global-mode-string can become quite long if there are several modes > running, and this makes the nice and very useful mode-line-position > scroll of to the far right (where it becomes invisible, and useless). > > This might be a good idea. I think it would call for some other small > redesign so as to make it look good. Does anyone want to give it a > try? What about something like this? I think that it looks quite good. Are there any other files that need to be modified? It looks something like this: --:%* *vc-diff* L0 Bot (Diff from bindings.el)------------------------ --- bindings.el.~1.104.~ 2002-07-23 19:51:15.000000000 +0200 +++ bindings.el 2002-07-26 17:53:25.000000000 +0200 @@ -248,10 +248,10 @@ 'mode-line-frame-identification 'mode-line-buffer-identification (propertize " " 'help-echo help-echo) + 'mode-line-position 'global-mode-string 'mode-line-modes `(which-func-mode ("" which-func-format ,dashes)) - 'mode-line-position (propertize "-%-" 'help-echo help-echo))) (setq-default mode-line-modes @@ -266,8 +266,8 @@ (propertize ")%]--" 'help-echo help-echo))) (setq-default mode-line-position - `((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes)) - (column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes)) + `((line-number-mode (,(propertize "L%l" 'help-echo help-echo) " ")) + (column-number-mode (,(propertize "C%c" 'help-echo help-echo) " ")) (-3 . ,(propertize "%p" 'help-echo help-echo))))) (defvar mode-line-buffer-identification-keymap nil "\ -- Alfred M. Szmidt