diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-02-16 01:45:47 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-02-16 01:45:47 +0000 |
| commit | f46b8f6d96a47cc6d26e794c492db80e7fd0d714 (patch) | |
| tree | a7eb1573097a46c4d5dc20f6c8d550b5ebbcc830 /lisp/bindings.el | |
| parent | 2826687d5b21d423ee34b610b194ac3f7dd00788 (diff) | |
| download | emacs-f46b8f6d96a47cc6d26e794c492db80e7fd0d714.tar.gz | |
(mode-line-mule-info): Make the tooltips more explicit.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 8c1a650b9c1..bee285a30b2 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -181,9 +181,11 @@ corresponding to the mode line clicked." (current-input-method (:propertize ("" current-input-method-title) help-echo (concat - "Input method: " + "Current input method: " current-input-method - ". mouse-2: disable, mouse-3: describe") + "\n\ +mouse-2: Disable input method\n\ +mouse-3: Describe current input method") local-map ,mode-line-input-method-map mouse-face mode-line-highlight)) ,(propertize @@ -194,11 +196,12 @@ corresponding to the mode line clicked." ;; Don't show this tip if the coding system is nil, ;; it reads like a bug, and is not useful anyway. (when buffer-file-coding-system - (if enable-multibyte-characters - (concat (symbol-name buffer-file-coding-system) - " buffer; mouse-1: describe coding system") - (concat "Unibyte " (symbol-name buffer-file-coding-system) - " buffer"))))) + (format "Buffer coding system %s\nmouse-1: describe coding system" + (if enable-multibyte-characters + (concat "(multi-byte): " + (symbol-name buffer-file-coding-system)) + (concat "(unibyte): " + (symbol-name buffer-file-coding-system))))))) 'mouse-face 'mode-line-highlight 'local-map mode-line-coding-system-map) (:eval (mode-line-eol-desc))) @@ -241,7 +244,7 @@ Normally nil in most modes, since there is no process to display.") (propertize "%1+" 'help-echo (purecopy (lambda (window object point) - (format "%sodified: mouse-1 toggles" + (format "Buffer is %sodified\nmouse-1 toggles modified state" (save-selected-window (select-window window) (if (buffer-modified-p) |