From: okazaki <okazaki>
Date: Mon, 13 Sep 2004 03:41:25 +0000 (+0000)
Subject: (elmo-delete-if): Reduce loop strength in a while loop.
X-Git-Tag: wl-2_12-root~120
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8a9116d9c2ba5ecbca47484d53c0ca956ffc68f0;p=elisp%2Fwanderlust.git

(elmo-delete-if): Reduce loop strength in a while loop.
---

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 0e51f1e..68fb8ee 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1113,9 +1113,9 @@ Emacs 19.28 or earlier does not have `unintern'."
   (let (result)
     (while lst
       (unless (funcall pred (car lst))
-	(setq result (nconc result (list (car lst)))))
+	(setq result (cons (car lst) result)))
       (setq lst (cdr lst)))
-    result))
+    (nreverse result)))
 
 (defun elmo-list-delete (list1 list2 &optional delete-function)
   "Delete by side effect any occurrences equal to elements of LIST1 from LIST2.