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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25e42a9d2b7357765ae5ceba9ba075289ffa0c6a..1cdf82a55cd6458d7eb8d89d98f42e6560084e21 100644 (file)
--- 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 8c1a650b9c11ca657d89154566c2938a4b61d019..bee285a30b22c94776576bd17faf3ad9fad3a403 100644 (file)
--- 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)