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