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

27451bb4 · Richard M. Stallman · f9580781 · 27451bb4
Commit 27451bb4 authored Mar 28, 2002 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 8 deletions

lisp/bindings.el lisp/bindings.el +6 -8

No files found.
--- 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