Fix the mouse help/key map on the "%p" part of the mode line.

* lisp/bindings.el (mode-line-percent-position): give it a
`risky-local-variable' property.
(mode-line-position): correct the quoting on the mode-line-percent-position
part of the variable, allowing the properties to be properly recognized.
This commit is contained in:
Alan Mackenzie 2017-05-30 16:21:31 +00:00
parent ebcc70ab1b
commit 91a52e38e5

View file

@ -382,14 +382,15 @@ displayed in `mode-line-position', a component of the default
(6 "%q")))
:version "26.1"
:group 'mode-line)
(put 'mode-line-percent-position 'risky-local-variable t)
(defvar mode-line-position
`((:propertize
mode-line-percent-position
'local-map mode-line-column-line-number-mode-map
'mouse-face 'mode-line-highlight
local-map ,mode-line-column-line-number-mode-map
mouse-face mode-line-highlight
;; XXX needs better description
'help-echo "Size indication mode\n\
help-echo "Size indication mode\n\
mouse-1: Display Line and Column Mode Menu")
(size-indication-mode
(8 ,(propertize