Commit c71ff001 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 1d58e36f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment