martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(sort-subr): Fix previous change.

Browse Source
This commit is contained in:
Richard M. Stallman
1993-02-07 16:44:11 +00:00
parent 4f1b6c5449
commit b5ff800400
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/sort.el
View File

@@ -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)