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:
parent
ebcc70ab1b
commit
91a52e38e5
1 changed files with 4 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue