Mercurial > emacs

changeset 1845:aeb1a834481b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sort-subr): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Feb 1993 16:44:11 +0000
parents d48f094be56e
children 19c13118ba0c
files lisp/sort.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/sort.el	Sun Feb 07 05:54:14 1993 +0000
+++ b/lisp/sort.el	Sun Feb 07 16:44:11 1993 +0000
@@ -79,8 +79,8 @@
 				    (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 @@
 			       (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)