diff options
| -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 |