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> 2008-02-15 Jason Rumney <jasonr@gnu.org>
   
* term/mac-win.el: Fix coding tag. * term/mac-win.el: Fix coding tag.
......
...@@ -181,9 +181,11 @@ corresponding to the mode line clicked." ...@@ -181,9 +181,11 @@ corresponding to the mode line clicked."
(current-input-method (current-input-method
(:propertize ("" current-input-method-title) (:propertize ("" current-input-method-title)
help-echo (concat help-echo (concat
"Input method: " "Current 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 local-map ,mode-line-input-method-map
mouse-face mode-line-highlight)) mouse-face mode-line-highlight))
,(propertize ,(propertize
...@@ -194,11 +196,12 @@ corresponding to the mode line clicked." ...@@ -194,11 +196,12 @@ corresponding to the mode line clicked."
;; Don't show this tip if the coding system is nil, ;; Don't show this tip if the coding system is nil,
;; it reads like a bug, and is not useful anyway. ;; it reads like a bug, and is not useful anyway.
(when buffer-file-coding-system (when buffer-file-coding-system
(if enable-multibyte-characters (format "Buffer coding system %s\nmouse-1: describe coding system"
(concat (symbol-name buffer-file-coding-system) (if enable-multibyte-characters
" buffer; mouse-1: describe coding system") (concat "(multi-byte): "
(concat "Unibyte " (symbol-name buffer-file-coding-system) (symbol-name buffer-file-coding-system))
" buffer"))))) (concat "(unibyte): "
(symbol-name buffer-file-coding-system)))))))
'mouse-face 'mode-line-highlight 'mouse-face 'mode-line-highlight
'local-map mode-line-coding-system-map) 'local-map mode-line-coding-system-map)
(:eval (mode-line-eol-desc))) (:eval (mode-line-eol-desc)))
...@@ -241,7 +244,7 @@ Normally nil in most modes, since there is no process to display.") ...@@ -241,7 +244,7 @@ Normally nil in most modes, since there is no process to display.")
(propertize (propertize
"%1+" "%1+"
'help-echo (purecopy (lambda (window object point) 'help-echo (purecopy (lambda (window object point)
(format "%sodified: mouse-1 toggles" (format "Buffer is %sodified\nmouse-1 toggles modified state"
(save-selected-window (save-selected-window
(select-window window) (select-window window)
(if (buffer-modified-p) (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