From: Juanma Barranquero Date: Wed, 31 Oct 2007 13:07:03 +0000 (+0000) Subject: (strokes-alphabetic-lessp): Doc fix. X-Git-Tag: emacs-pretest-22.1.90~456 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5d47fb2622a7503f90bfba3503d254af3da11b4;p=emacs.git (strokes-alphabetic-lessp): Doc fix. --- 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 + + * strokes.el (strokes-alphabetic-lessp): Doc fix. + 2007-10-31 Sean O'Rourke - * 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 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)))