emacs-diffs
[Top][All Lists]
Advanced

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

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


From: Richard M. Stallman
Subject: [Emacs-diffs] Changes to emacs/lisp/bindings.el
Date: Sun, 28 Jul 2002 22:45:49 -0400

Index: emacs/lisp/bindings.el
diff -c emacs/lisp/bindings.el:1.104 emacs/lisp/bindings.el:1.105
*** emacs/lisp/bindings.el:1.104        Sun Jul 21 16:23:32 2002
--- emacs/lisp/bindings.el      Sun Jul 28 22:45:49 2002
***************
*** 249,262 ****
       'mode-line-buffer-identification
       (propertize "   " 'help-echo help-echo)
       '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
      (list
!      (propertize "   %[(" 'help-echo help-echo)
       `(:propertize ("" mode-name mode-line-process minor-mode-alist)
                   help-echo "mouse-3: minor mode menu"
                   local-map ,mode-line-minor-mode-keymap)
--- 249,264 ----
       'mode-line-buffer-identification
       (propertize "   " 'help-echo help-echo)
       'global-mode-string
+      '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
      (list
!      (propertize "%[(" 'help-echo help-echo)
       `(:propertize ("" mode-name mode-line-process minor-mode-alist)
                   help-echo "mouse-3: minor mode menu"
                   local-map ,mode-line-minor-mode-keymap)
***************
*** 266,273 ****
       (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))
        (-3 . ,(propertize "%p" 'help-echo help-echo)))))
  
  (defvar mode-line-buffer-identification-keymap nil "\
--- 268,275 ----
       (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 "\



reply via email to

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