* bindings.el (mode-line-eol-desc): Fix typo in help message.

  (mode-line-client): Fix typo in help message and docstring.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 488da11..adb402c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-02  Juanma Barranquero  <lekktu@gmail.com>
+
+       * bindings.el (mode-line-eol-desc): Fix typo in help message.
+       (mode-line-client): Fix typo in help message and docstring.
+
 2009-01-02  Jason Rumney  <jasonr@gnu.org>
 
        * term/w32-win.el (image-library-alist): Add gobject library.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 245050d..835d3e6 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -155,7 +155,7 @@ corresponding to the mode line clicked."
             mnemonic
             'help-echo (format "End-of-line style: %s\nmouse-1 to cycle"
                                (if (eq eol 0) "Unix-style LF"
-                                 (if (eq eol 1) "Dos-style CRLF"
+                                 (if (eq eol 1) "DOS-style CRLF"
                                    (if (eq eol 2) "Mac-style CR"
                                      "Undecided"))))
             'keymap
@@ -170,8 +170,8 @@ corresponding to the mode line clicked."
 (defvar mode-line-client
   `(""
     (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" "")))
-                help-echo "Emacsclient frame"))
-  "Mode-line control for identifying Emacsclient frames.")
+                help-echo "emacsclient frame"))
+  "Mode-line control for identifying emacsclient frames.")
 
 (defvar mode-line-mule-info
   `(""