[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bindings.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bindings.el,v |
Date: |
Sat, 16 Feb 2008 01:45:50 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/02/16 01:45:50
Index: bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.195
retrieving revision 1.196
diff -u -b -r1.195 -r1.196
--- bindings.el 16 Feb 2008 00:33:08 -0000 1.195
+++ bindings.el 16 Feb 2008 01:45:47 -0000 1.196
@@ -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
+ (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 @@
(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)