/[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.107 by kfstorm, Tue Aug 20 09:05:33 2002 UTC revision 1.108 by kfstorm, Wed Aug 21 12:05:09 2002 UTC
# Line 248  Keymap to display on major and minor mod Line 248  Keymap to display on major and minor mod
248       'mode-line-frame-identification       'mode-line-frame-identification
249       'mode-line-buffer-identification       'mode-line-buffer-identification
250       (propertize "   " 'help-echo help-echo)       (propertize "   " 'help-echo help-echo)
      'global-mode-string  
      `(global-mode-string ,(propertize "   " 'help-echo help-echo))  
251       'mode-line-position       'mode-line-position
252       '(vc-mode vc-mode)       '(vc-mode vc-mode)
253       (propertize "   " 'help-echo help-echo)       (propertize "   " 'help-echo help-echo)
254       'mode-line-modes       'mode-line-modes
255       `(which-func-mode ("" which-func-format ,dashes))       `(which-func-mode ("" which-func-format ,dashes))
256         `(global-mode-string (,dashes global-mode-string))
257       (propertize "-%-" 'help-echo help-echo)))       (propertize "-%-" 'help-echo help-echo)))
258    
259    (setq-default mode-line-modes    (setq-default mode-line-modes
# Line 269  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)))      `((-3 . ,(propertize "%p" 'help-echo help-echo))
272        (column-number-mode (,(propertize "C%c " 'help-echo help-echo)))        (line-number-mode
273        (-3 . ,(propertize "%p" 'help-echo help-echo)))))         ((column-number-mode
274             (10 ,(propertize " (%l,%c)" 'help-echo help-echo))
275             (6 ,(propertize " L%l" 'help-echo help-echo))))
276           ((column-number-mode
277             (5 ,(propertize " C%c" 'help-echo help-echo))))))))
278    
279  (defvar mode-line-buffer-identification-keymap nil "\  (defvar mode-line-buffer-identification-keymap nil "\
280  Keymap for what is displayed by `mode-line-buffer-identification'.")  Keymap for what is displayed by `mode-line-buffer-identification'.")

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

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