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

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.569 auctex/tex.el:5.570
--- auctex/tex.el:5.569 Sun May 21 08:33:20 2006
+++ auctex/tex.el       Mon May 22 18:28:26 2006
@@ -3223,6 +3223,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."