# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1203126347 0
# Node ID 1a6529179b70d754f755e4185e48165faf4199b0
# Parent  0a38cdf50e2860fd5d99701b340bb2c26dca88ae
(mode-line-mule-info): Make the tooltips more explicit.

diff -r 0a38cdf50e28 -r 1a6529179b70 lisp/ChangeLog
--- 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.
diff -r 0a38cdf50e28 -r 1a6529179b70 lisp/bindings.el
--- 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)