mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases 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
Show Stats 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)