diff options
| -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) |