[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 11:17:14

Index: reftex-base.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-base.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- reftex-base.el      3 May 2008 09:19:46 -0000       1.12
+++ reftex-base.el      7 Jun 2008 11:17:14 -0000       1.13
@@ -1967,6 +1967,14 @@
        (pop lst)))
     (delq nil alist)))
 
+(defun reftex-remove-if (predicate list)
+  "Nondestructively remove all items from LIST which satisfy PREDICATE."
+  (let (result)
+    (dolist (elt list)
+      (unless (funcall predicate elt)
+       (add-to-list 'result elt t)))
+    result))
+
 (defun reftex-abbreviate-title (string)
   (reftex-convert-string string "[-~ \t\n\r,;]" nil t t
                          5 40 nil 1 " " (nth 5 
reftex-derive-label-parameters)))