andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(strokes-alphabetic-lessp): Doc fix.

Browse source
This commit is contained in:
Juanma Barranquero 2007-10-31 13:07:03 +00:00
parent 59e1bd2913
commit f5d47fb262
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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>

2
lisp/strokes.el
View file

@ -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)))