diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-02-07 16:44:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-02-07 16:44:11 +0000 |
| commit | db9c07e6e3b6f62743a0500f69b821b1819ce763 (patch) | |
| tree | b19a735e0c9cd1cc8c478536b1ed7cc9957a6dd5 /lisp/sort.el | |
| parent | 5492a56e9447b2201261f11987909ce0d7ba665f (diff) | |
| download | emacs-db9c07e6e3b6f62743a0500f69b821b1819ce763.tar.gz | |
(sort-subr): Fix previous change.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/sort.el b/lisp/sort.el index 55376fcddf9..f1131ef287f 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -79,8 +79,8 @@ same as ENDRECFUN." (function (lambda (a b) (> 0 (compare-buffer-substrings - nil (car a) (nth 1 a) - nil (car b) (nth 1 b)))))) + nil (car a) (cdr a) + nil (car b) (cdr b)))))) (t 'string<))) (sort sort-lists @@ -92,8 +92,8 @@ same as ENDRECFUN." (function (lambda (a b) (> 0 (compare-buffer-substrings - nil (car (car a)) (nth 1 (car a)) - nil (car (car b)) (nth 1 (car b))))))) + nil (car (car a)) (cdr (car a)) + nil (car (car b)) (cdr (car b))))))) (t (function (lambda (a b) |