From b5ff800400a7d4f984dd111980e213f2007bfdf7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Feb 1993 16:44:11 +0000 Subject: [PATCH] (sort-subr): Fix previous change. --- lisp/sort.el | 8 ++++---- 1 file 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." (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)