*** empty log message ***

[gnu-emacs] / lisp / bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 2d22d2b2f9d65fd378d4c565c94eb3299ca499c2..5affecd99a98f5cd3906c06bc10cf07de28f12cf 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -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