/[emacs]/emacs/lisp/bindings.el
ViewVC logotype

Diff of /emacs/lisp/bindings.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.104 by rms, Sun Jul 21 20:23:32 2002 UTC revision 1.105 by rms, Mon Jul 29 02:45:49 2002 UTC
# Line 249  Keymap to display on major and minor mod Line 249  Keymap to display on major and minor mod
249       'mode-line-buffer-identification       'mode-line-buffer-identification
250       (propertize "   " 'help-echo help-echo)       (propertize "   " 'help-echo help-echo)
251       'global-mode-string       'global-mode-string
252         'mode-line-position
253         '(vc-mode vc-mode)
254         (propertize "   " 'help-echo help-echo)
255       'mode-line-modes       'mode-line-modes
256       `(which-func-mode ("" which-func-format ,dashes))       `(which-func-mode ("" which-func-format ,dashes))
      'mode-line-position  
257       (propertize "-%-" 'help-echo help-echo)))       (propertize "-%-" 'help-echo help-echo)))
258    
259    (setq-default mode-line-modes    (setq-default mode-line-modes
260      (list      (list
261       (propertize "   %[(" 'help-echo help-echo)       (propertize "%[(" 'help-echo help-echo)
262       `(:propertize ("" mode-name mode-line-process minor-mode-alist)       `(:propertize ("" mode-name mode-line-process minor-mode-alist)
263                     help-echo "mouse-3: minor mode menu"                     help-echo "mouse-3: minor mode menu"
264                     local-map ,mode-line-minor-mode-keymap)                     local-map ,mode-line-minor-mode-keymap)
# Line 266  Keymap to display on major and minor mod Line 268  Keymap to display on major and minor mod
268       (propertize ")%]--" 'help-echo help-echo)))       (propertize ")%]--" 'help-echo help-echo)))
269    
270    (setq-default mode-line-position    (setq-default mode-line-position
271      `((line-number-mode (,(propertize "L%l" 'help-echo help-echo) ,dashes))      `((line-number-mode (,(propertize "L%l " 'help-echo help-echo)))
272        (column-number-mode (,(propertize "C%c" 'help-echo help-echo) ,dashes))        (column-number-mode (,(propertize "C%c " 'help-echo help-echo)))
273        (-3 . ,(propertize "%p" 'help-echo help-echo)))))        (-3 . ,(propertize "%p" 'help-echo help-echo)))))
274    
275  (defvar mode-line-buffer-identification-keymap nil "\  (defvar mode-line-buffer-identification-keymap nil "\

Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26