From: Alan Mackenzie <acm@muc.de>
Date: Tue, 30 May 2017 16:21:31 +0000 (+0000)
Subject: Fix the mouse help/key map on the "%p" part of the mode line.
X-Git-Tag: emacs-26.0.90~521^2~225^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91a52e38e5194f19f0d44ae4c2ad88565b28a196;p=emacs.git

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.
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 0e6ffc275ed..0994b7126d9 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -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