From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 20 Apr 1994 19:56:46 +0000 (+0000)
Subject: (sort-subr): Use car-less-than-car when appropriate.
X-Git-Tag: emacs-19.34~8862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c71ff00194a332f19f272fde0a89f9a7395285c1;p=emacs.git

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

diff --git a/lisp/sort.el b/lisp/sort.el
index 0d6dcb1abf9..00fc16e7a0f 100644
--- 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)