Skip to content

GitLab

Commit b5ff8004 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(sort-subr): Fix previous change.

parent 4f1b6c54
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 4 deletions
lisp/sort.el
View file @ b5ff8004
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment