procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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