(strokes-alphabetic-lessp): Doc fix.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7aa77756e45..cf0e02ddfb4 100644
--- 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 de4123453f5..8f6d57b10a0 100644
--- 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)))