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 | 1c6ad3a4dd70ed8b42dc93ed73f23991227ad37b (patch) | |
| tree | f47407b2c7e768553e40df26b95130831069135a /lisp/sort.el | |
| parent | 5e119eea37f3118230647c39328807b357098d26 (diff) | |
| download | emacs-1c6ad3a4dd70ed8b42dc93ed73f23991227ad37b.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) |