[AUCTeX-diffs] Changes to auctex/tex.el,v [multiline]

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Branch:         multiline
Changes by:     Ralf Angeli <angeli>    06/06/06 20:01:44

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.563
retrieving revision 5.563.2.1
diff -u -b -r5.563 -r5.563.2.1
--- tex.el      13 Mar 2006 19:21:16 -0000      5.563
+++ tex.el      6 Jun 2006 20:01:44 -0000       5.563.2.1
@@ -3214,6 +3214,13 @@
     (setq list (cdr list)))
   (car-safe list))
 
+(defun TeX-elt-of-list-member (elts list)
+  "Return non-nil if an element of ELTS is a member of LIST."
+  (catch 'found
+    (dolist (elt elts)
+      (when (member elt list)
+       (throw 'found t)))))
+
 (defun TeX-assoc (key list)
   "Return non-nil if KEY is `equal' to the car of an element of LIST.
 Like assoc, except case insensitive."