# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1193835790 0
# Node ID 38be7cabc3fbf1d7151c07c19188725965e0c8f5
# Parent  a6f04138250eebe0ab0abd55fe986e8550cfdfa2
(strokes-alphabetic-lessp): Doc fix.

diff -r a6f04138250e -r 38be7cabc3fb lisp/strokes.el
--- a/lisp/strokes.el	Wed Oct 31 12:46:29 2007 +0000
+++ b/lisp/strokes.el	Wed Oct 31 13:03:10 2007 +0000
@@ -1370,7 +1370,7 @@
     (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)))