(mode-line-mule-info): Make the tooltips more explicit.

2 files changed, 15 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25e42a9d2b7..1cdf82a55cd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
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)