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