[Emacs-diffs] Changes to emacs/lisp/bindings.el

[Kim F. Storm]

Index: emacs/lisp/bindings.el
diff -c emacs/lisp/bindings.el:1.107 emacs/lisp/bindings.el:1.108
*** emacs/lisp/bindings.el:1.107        Tue Aug 20 05:05:33 2002
--- emacs/lisp/bindings.el      Wed Aug 21 08:05:09 2002
***************
*** 248,260 ****
       'mode-line-frame-identification
       'mode-line-buffer-identification
       (propertize "   " 'help-echo help-echo)
-      'global-mode-string
-      `(global-mode-string ,(propertize "   " 'help-echo help-echo))
       'mode-line-position
       '(vc-mode vc-mode)
       (propertize "   " 'help-echo help-echo)
       'mode-line-modes
       `(which-func-mode ("" which-func-format ,dashes))
       (propertize "-%-" 'help-echo help-echo)))
  
    (setq-default mode-line-modes
--- 248,259 ----
       'mode-line-frame-identification
       'mode-line-buffer-identification
       (propertize "   " 'help-echo help-echo)
       'mode-line-position
       '(vc-mode vc-mode)
       (propertize "   " 'help-echo help-echo)
       'mode-line-modes
       `(which-func-mode ("" which-func-format ,dashes))
+      `(global-mode-string (,dashes global-mode-string))
       (propertize "-%-" 'help-echo help-echo)))
  
    (setq-default mode-line-modes
***************
*** 269,277 ****
       (propertize ")%]--" 'help-echo help-echo)))
  
    (setq-default mode-line-position
!     `((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 "\
  Keymap for what is displayed by `mode-line-buffer-identification'.")
--- 268,280 ----
       (propertize ")%]--" 'help-echo help-echo)))
  
    (setq-default mode-line-position
!     `((-3 . ,(propertize "%p" 'help-echo help-echo))
!       (line-number-mode 
!        ((column-number-mode
!        (10 ,(propertize " (%l,%c)" 'help-echo help-echo))
!        (6 ,(propertize " L%l" 'help-echo help-echo))))
!        ((column-number-mode
!        (5 ,(propertize " C%c" 'help-echo help-echo))))))))
  
  (defvar mode-line-buffer-identification-keymap nil "\
  Keymap for what is displayed by `mode-line-buffer-identification'.")