diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-10-31 13:07:03 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-10-31 13:07:03 +0000 |
| commit | f5d47fb2622a7503f90bfba3503d254af3da11b4 (patch) | |
| tree | 7c3c596feb72a5a29fd1eb79d25d20f335f16738 /lisp/strokes.el | |
| parent | 59e1bd2913bfeb01d12f0ba419aa63d6cd00a604 (diff) | |
| download | emacs-f5d47fb2622a7503f90bfba3503d254af3da11b4.tar.gz | |
(strokes-alphabetic-lessp): Doc fix.
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |