Mercurial > emacs

changeset 38752:59cccbc83f43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-format): Specify help-echo for line number, column number and buffer-percent part of the mode-line.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Aug 2001 13:45:23 +0000
parents ea3e88f0c205
children c1031b06e707
files lisp/bindings.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bindings.el	Thu Aug 09 13:01:38 2001 +0000
+++ b/lisp/bindings.el	Thu Aug 09 13:45:23 2001 +0000
@@ -225,9 +225,9 @@
 		 'local-map (make-mode-line-mouse2-map #'mode-line-widen))
      (propertize ")%]--" 'help-echo help-echo)
      `(which-func-mode ("" which-func-format ,dashes))
-     `(line-number-mode ("L%l" ,dashes))
-     `(column-number-mode ("C%c" ,dashes))
-     (purecopy '(-3 . "%p"))
+     `(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))
      (propertize "-%-" 'help-echo help-echo))))
 
 (defvar minor-mode-alist nil "\