Mercurial > emacs

comparison lisp/bindings.el @ 48240:76ff1f8826a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-name): Mark it as risky-local-variable.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 11 Nov 2002 08:10:16 +0000
parents 110ec10bd1ea
children 31bd5abb774a
comparison
equal deleted inserted replaced
48239:e62f3275cb5e 48240:76ff1f8826a6
300 'mouse-2 #'mode-line-widen)) 300 'mouse-2 #'mode-line-widen))
301 (propertize ")%]--" 'help-echo help-echo))) 301 (propertize ")%]--" 'help-echo help-echo)))
302 302
303 (setq-default mode-line-position 303 (setq-default mode-line-position
304 `((-3 . ,(propertize "%p" 'help-echo help-echo)) 304 `((-3 . ,(propertize "%p" 'help-echo help-echo))
305 (line-number-mode 305 (line-number-mode
306 ((column-number-mode 306 ((column-number-mode
307 (10 ,(propertize " (%l,%c)" 'help-echo help-echo)) 307 (10 ,(propertize " (%l,%c)" 'help-echo help-echo))
308 (6 ,(propertize " L%l" 'help-echo help-echo)))) 308 (6 ,(propertize " L%l" 'help-echo help-echo))))
309 ((column-number-mode 309 ((column-number-mode
310 (5 ,(propertize " C%c" 'help-echo help-echo)))))))) 310 (5 ,(propertize " C%c" 'help-echo help-echo))))))))
311
312 (put 'mode-name 'risky-local-variable t)
311 313
312 (defvar mode-line-buffer-identification-keymap nil "\ 314 (defvar mode-line-buffer-identification-keymap nil "\
313 Keymap for what is displayed by `mode-line-buffer-identification'.") 315 Keymap for what is displayed by `mode-line-buffer-identification'.")
314 316
315 (defun last-buffer () "\ 317 (defun last-buffer () "\