diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-20 19:56:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-20 19:56:46 +0000 |
| commit | c71ff00194a332f19f272fde0a89f9a7395285c1 (patch) | |
| tree | b04a2a608431637d0f87a30a963ea94e9d2b441f /lisp/sort.el | |
| parent | 1d58e36fc277101805d432d190aab903120ad315 (diff) | |
| download | emacs-c71ff00194a332f19f272fde0a89f9a7395285c1.tar.gz | |
(sort-subr): Use car-less-than-car when appropriate.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 4 |
1 files changed, 1 insertions, 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) |