[Top][All Lists]
[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 "\