# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766871806 0
# Node ID 72393aa69dd2b2eb95943938f0d7ccd2be8bc05e
# Parent  9bfef236ac9ab8329181e5d37368b914945fd7fd
(sort-subr): Use car-less-than-car when appropriate.

diff -r 9bfef236ac9a -r 72393aa69dd2 lisp/sort.el
--- a/lisp/sort.el	Wed Apr 20 19:54:08 1994 +0000
+++ b/lisp/sort.el	Wed Apr 20 19:56:46 1994 +0000
@@ -95,9 +95,7 @@
 				    '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)