From c71ff00194a332f19f272fde0a89f9a7395285c1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 20 Apr 1994 19:56:46 +0000 Subject: [PATCH] (sort-subr): Use car-less-than-car when appropriate. --- lisp/sort.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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) -- 2.39.5