(strokes-alphabetic-lessp): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7aa77756e45e3a65d1bd0cd861ee584d106f6714..cf0e02ddfb4136ed7471e42ea2e8c73736162858 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,10 @@
+2007-10-31  Juanma Barranquero  <lekktu@gmail.com>
+
+       * strokes.el (strokes-alphabetic-lessp): Doc fix.
+
 2007-10-31  Sean O'Rourke  <sorourke@cs.ucsd.edu>
 
-       * emacs-lisp/find-func.el (find-library): use library at
+       * emacs-lisp/find-func.el (find-library): Use library at
        point as default interactive argument.
 
 2007-10-31  Juanma Barranquero  <lekktu@gmail.com>

diff --git a/lisp/strokes.el b/lisp/strokes.el
index de4123453f56343fa205ca141a983f85a74795c5..8f6d57b10a031a2c32021712777b6adefeb9cab5 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1370,7 +1370,7 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead."
     (goto-char (point-min))))
 
 (defun strokes-alphabetic-lessp (stroke1 stroke2)
-  "T if command name for STROKE1 is less than STROKE2's in lexicographic order."
+  "Return t if STROKE1's command name precedes STROKE2's in lexicographic order."
   (let ((command-name-1 (symbol-name (cdr stroke1)))
        (command-name-2 (symbol-name (cdr stroke2))))
     (string-lessp command-name-1 command-name-2)))