[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Moving mode-line-position before global-mode-string in mode-line-for

From: Alfred M. Szmidt
Subject: Re: Moving mode-line-position before global-mode-string in mode-line-format.
Date: 26 Jul 2002 17:59:11 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50

Richard Stallman <address@hidden> 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 @@
      (propertize "   " 'help-echo help-echo)
+     'mode-line-position
      `(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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]