mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

(sort-subr): Use car-less-than-car when appropriate.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-04-20 19:56:46 +00:00
parent 1d58e36fc2
commit c71ff00194
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/sort.el
View File

@ -95,9 +95,7 @@ same as ENDRECFUN."
'string<)))
(sort sort-lists
(cond ((numberp (car (car sort-lists)))
(function
(lambda (a b)
(< (car a) (car b)))))
'car-less-than-car)
((consp (car (car sort-lists)))
(function
(lambda (a b)