diff options
| author | Richard M. Stallman | 1993-02-07 16:44:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-02-07 16:44:11 +0000 |
| commit | b5ff800400a7d4f984dd111980e213f2007bfdf7 (patch) | |
| tree | 7277d33a5b64eef0245849c4d954b8cb13c1361e /lisp/sort.el | |
| parent | 4f1b6c54492ad05632b307285db341955abe973f (diff) | |
| download | emacs-b5ff800400a7d4f984dd111980e213f2007bfdf7.tar.gz emacs-b5ff800400a7d4f984dd111980e213f2007bfdf7.zip | |
(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." | |||
| 79 | (function | 79 | (function |
| 80 | (lambda (a b) | 80 | (lambda (a b) |
| 81 | (> 0 (compare-buffer-substrings | 81 | (> 0 (compare-buffer-substrings |
| 82 | nil (car a) (nth 1 a) | 82 | nil (car a) (cdr a) |
| 83 | nil (car b) (nth 1 b)))))) | 83 | nil (car b) (cdr b)))))) |
| 84 | (t | 84 | (t |
| 85 | 'string<))) | 85 | 'string<))) |
| 86 | (sort sort-lists | 86 | (sort sort-lists |
| @@ -92,8 +92,8 @@ same as ENDRECFUN." | |||
| 92 | (function | 92 | (function |
| 93 | (lambda (a b) | 93 | (lambda (a b) |
| 94 | (> 0 (compare-buffer-substrings | 94 | (> 0 (compare-buffer-substrings |
| 95 | nil (car (car a)) (nth 1 (car a)) | 95 | nil (car (car a)) (cdr (car a)) |
| 96 | nil (car (car b)) (nth 1 (car b))))))) | 96 | nil (car (car b)) (cdr (car b))))))) |
| 97 | (t | 97 | (t |
| 98 | (function | 98 | (function |
| 99 | (lambda (a b) | 99 | (lambda (a b) |