From 8a9116d9c2ba5ecbca47484d53c0ca956ffc68f0 Mon Sep 17 00:00:00 2001 From: okazaki Date: Mon, 13 Sep 2004 03:41:25 +0000 Subject: [PATCH] (elmo-delete-if): Reduce loop strength in a while loop. --- elmo/elmo-util.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 1.7.10.4