[Docutils-checkins] r3787 - trunk/docutils/tools/editors/emacs/restructuredtext.el

[<bl...@us...>]

Author: blais
Date: 2005-08-07 09:44:03 +0200 (Sun, 07 Aug 2005)
New Revision: 3787

Modified:
   trunk/docutils/tools/editors/emacs/restructuredtext.el
Log:
Added missing generic filter function.

Modified: trunk/docutils/tools/editors/emacs/restructuredtext.el
===================================================================
--- trunk/docutils/tools/editors/emacs/restructuredtext.el	2005-08-04 03:00:27 UTC (rev 3786)
+++ trunk/docutils/tools/editors/emacs/restructuredtext.el	2005-08-07 07:44:03 UTC (rev 3787)
@@ -27,6 +27,20 @@
 ;; C-u C-=.
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Generic Filter function.
+
+(if (not (fboundp 'filter))
+    (defun filter (pred list)
+      "Returns a list of all the elements fulfilling the pred requirement (that
+is for which (pred elem) is true)"
+      (if list
+          (let ((head (car list))
+                (tail (filter pred (cdr list))))
+            (if (funcall pred head)
+                (cons head tail)
+              tail)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; Generic text functions that are more convenient than the defaults.
 ;;