From f46b8f6d96a47cc6d26e794c492db80e7fd0d714 Mon Sep 17 00:00:00 2001
From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 16 Feb 2008 01:45:47 +0000
Subject: [PATCH] (mode-line-mule-info): Make the tooltips more explicit.

---
 lisp/ChangeLog   |  4 ++++
 lisp/bindings.el | 19 +++++++++++--------
 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)
-- 
2.39.2