Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
6990:9bfef236ac9a 6991:72393aa69dd2
93 nil (car b) (cdr b)))))) 93 nil (car b) (cdr b))))))
94 (t 94 (t
95 'string<))) 95 'string<)))
96 (sort sort-lists 96 (sort sort-lists
97 (cond ((numberp (car (car sort-lists))) 97 (cond ((numberp (car (car sort-lists)))
98 (function 98 'car-less-than-car)
99 (lambda (a b)
100 (< (car a) (car b)))))
101 ((consp (car (car sort-lists))) 99 ((consp (car (car sort-lists)))
102 (function 100 (function
103 (lambda (a b) 101 (lambda (a b)
104 (> 0 (compare-buffer-substrings 102 (> 0 (compare-buffer-substrings
105 nil (car (car a)) (cdr (car a)) 103 nil (car (car a)) (cdr (car a))