Mercurial > emacs
changeset 91859:1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 16 Feb 2008 01:45:47 +0000 |
| parents | 0a38cdf50e28 |
| children | 3c3db08aa826 |
| files | lisp/ChangeLog lisp/bindings.el |
| diffstat | 2 files changed, 15 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Feb 16 00:33:08 2008 +0000 +++ b/lisp/ChangeLog Sat Feb 16 01:45:47 2008 +0000 @@ -1,3 +1,7 @@ +2008-02-16 Dan Nicolaescu <dann@ics.uci.edu> + + * bindings.el (mode-line-mule-info): Make the tooltips more explicit. + 2008-02-15 Jason Rumney <jasonr@gnu.org> * term/mac-win.el: Fix coding tag.
--- a/lisp/bindings.el Sat Feb 16 00:33:08 2008 +0000 +++ b/lisp/bindings.el Sat Feb 16 01:45:47 2008 +0000 @@ -181,9 +181,11 @@ (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 @@ ;; 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 @@ (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)