Mercurial > emacs
changeset 6991:72393aa69dd2
(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 | 9bfef236ac9a |
| children | ed57331fb222 |
| files | lisp/sort.el |
| diffstat | 1 files changed, 1 insertions(+), 3 deletions(-) [+] |
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)