[AUCTeX-diffs] Changes to reftex/lisp/reftex-base.el,v

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    08/06/07 12:28:05

Index: reftex-base.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-base.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- reftex-base.el      7 Jun 2008 11:17:14 -0000       1.13
+++ reftex-base.el      7 Jun 2008 12:28:04 -0000       1.14
@@ -1970,10 +1970,9 @@
 (defun reftex-remove-if (predicate list)
   "Nondestructively remove all items from LIST which satisfy PREDICATE."
   (let (result)
-    (dolist (elt list)
+    (dolist (elt list (nreverse result))
       (unless (funcall predicate elt)
-       (add-to-list 'result elt t)))
-    result))
+       (push elt result)))))
 
 (defun reftex-abbreviate-title (string)
   (reftex-convert-string string "[-~ \t\n\r,;]" nil t t