diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/strokes.el | 2 |
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))) |