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 | b5ff800400a7d4f984dd111980e213f2007bfdf7 (patch) | |
| tree | 7277d33a5b64eef0245849c4d954b8cb13c1361e /lisp/sort.el | |
| parent | 4f1b6c54492ad05632b307285db341955abe973f (diff) | |
| download | emacs-b5ff800400a7d4f984dd111980e213f2007bfdf7.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) |