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."
(sort sort-lists
(cond ((numberp (car (car sort-lists)))
(lambda (a b)
(< (car a) (car b)))))
((consp (car (car sort-lists)))
(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