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

c71ff001 · Richard M. Stallman · 1d58e36f · c71ff001
Commit c71ff001 authored Apr 20, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 3 deletions

lisp/sort.el lisp/sort.el +1 -3

No files found.
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -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)