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