# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997364723 0
# Node ID 59cccbc83f43cde8ad5d7a596d57f385a684d04e
# Parent  ea3e88f0c205041ab2864bf2eeb779e8c16c2a7d
(mode-line-format): Specify help-echo for line
number, column number and buffer-percent part of the mode-line.

diff -r ea3e88f0c205 -r 59cccbc83f43 lisp/bindings.el
--- 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 "\