Mercurial > emacs

diff lisp/sort.el @ 6991:72393aa69dd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sort-subr): Use car-less-than-car when appropriate.
author Richard M. Stallman <rms@gnu.org>
date Wed, 20 Apr 1994 19:56:46 +0000
parents 79765ff7bfa1
children cc7cd83ccf3f
line wrap: on
line diff
--- 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)