Commit 27451bb4 authored by Richard M. Stallman's avatar Richard M. Stallman

(mode-line-mule-info): Use :propertize, not :eval.

parent f9580781
......@@ -138,14 +138,12 @@ corresponding to the mode line clicked."
(defvar mode-line-mule-info
`(""
(current-input-method
(:eval
,(purecopy
'(propertize current-input-method-title
'help-echo (concat
"Input method: "
current-input-method
". mouse-2: disable, mouse-3: describe")
'local-map mode-line-input-method-map))))
(:propertize ("" current-input-method-title)
help-echo (concat
"Input method: "
current-input-method
". mouse-2: disable, mouse-3: describe")
local-map ,mode-line-input-method-map))
,(propertize
"%Z"
'help-echo
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment