diff options
| author | Richard M. Stallman | 2002-03-28 18:23:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-28 18:23:08 +0000 |
| commit | 27451bb4df6ff041ffd6090bb635b094be6d9809 (patch) | |
| tree | ebd4f535fe3f0c60b757df09e1abfced2e61be6d | |
| parent | f95807815b76c98efd0f3a465e72d49e3417d5f5 (diff) | |
| download | emacs-27451bb4df6ff041ffd6090bb635b094be6d9809.tar.gz emacs-27451bb4df6ff041ffd6090bb635b094be6d9809.zip | |
(mode-line-mule-info): Use :propertize, not :eval.
| -rw-r--r-- | lisp/bindings.el | 14 |
1 files changed, 6 insertions, 8 deletions
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." | |||
| 138 | (defvar mode-line-mule-info | 138 | (defvar mode-line-mule-info |
| 139 | `("" | 139 | `("" |
| 140 | (current-input-method | 140 | (current-input-method |
| 141 | (:eval | 141 | (:propertize ("" current-input-method-title) |
| 142 | ,(purecopy | 142 | help-echo (concat |
| 143 | '(propertize current-input-method-title | 143 | "Input method: " |
| 144 | 'help-echo (concat | 144 | current-input-method |
| 145 | "Input method: " | 145 | ". mouse-2: disable, mouse-3: describe") |
| 146 | current-input-method | 146 | local-map ,mode-line-input-method-map)) |
| 147 | ". mouse-2: disable, mouse-3: describe") | ||
| 148 | 'local-map mode-line-input-method-map)))) | ||
| 149 | ,(propertize | 147 | ,(propertize |
| 150 | "%Z" | 148 | "%Z" |
| 151 | 'help-echo | 149 | 'help-echo |