From 4fc56f34898419347645a033593be88f8f14a0f4 Mon Sep 17 00:00:00 2001 From: okazaki Date: Sat, 26 Feb 2005 16:47:20 +0000 Subject: [PATCH] (elmo-list-diff): Fix the last change. --- elmo/elmo-util.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index dc06f2d..1c0d809 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -753,17 +753,13 @@ the directory becomes empty after deletion." (setq list1-only (cons (car clist1) list1-only)) (setq clist1 (cdr clist1)))) ((< (car clist1) (car clist2)) - (while (not (eq (car clist1) (car clist2))) + (while (and clist1 (< (car clist1) (car clist2))) (setq list1-only (cons (car clist1) list1-only)) - (setq clist1 (cdr clist1))) - (setq clist1 (cdr clist1) - clist2 (cdr clist2))) + (setq clist1 (cdr clist1)))) ((< (car clist2) (car clist1)) - (while (not (eq (car clist1) (car clist2))) + (while (and clist2 (< (car clist2) (car clist1))) (setq list2-only (cons (car clist2) list2-only)) - (setq clist2 (cdr clist2))) - (setq clist1 (cdr clist1) - clist2 (cdr clist2))) + (setq clist2 (cdr clist2)))) ((= (car clist1) (car clist2)) (setq clist1 (cdr clist1) clist2 (cdr clist2))))) -- 1.7.10.4