From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 28 Mar 2002 18:23:08 +0000 (+0000)
Subject: (mode-line-mule-info): Use :propertize, not :eval.
X-Git-Tag: ttn-vms-21-2-B4~15934
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27451bb4df6ff041ffd6090bb635b094be6d9809;p=emacs.git

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

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 2d22d2b2f9d..5affecd99a9 100644
--- 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