Commit f46b8f6d authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

parent 2826687d
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.
......
......@@ -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
(format "Buffer coding system %s\nmouse-1: describe 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")))))
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment