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
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
