Re: Moving mode-line-position before global-mode-string in mode-line-format.

[Alfred M. Szmidt]

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 @@
      '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