emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]