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

[Ralf Angeli]

Index: auctex/tex-site.el.in
diff -u auctex/tex-site.el.in:1.29 auctex/tex-site.el.in:1.30
--- auctex/tex-site.el.in:1.29  Fri Sep 23 13:35:13 2005
+++ auctex/tex-site.el.in       Sat Nov 19 11:03:17 2005
@@ -78,7 +78,18 @@
          (lambda ()
            (let ((list after-load-alist))
              (while list
-               (assq-delete-all 'TeX-modes-set (car list))
+               ;; Adapted copy of the definition of `assq-delete-all'
+               ;; from Emacs 21 as substitute for
+               ;; `(assq-delete-all'TeX-modes-set (car list))' which
+               ;; fails on non-list elements in Emacs 21.
+               (let* ((alist (car list))
+                      (tail alist)
+                      (key 'TeX-modes-set))
+                 (while tail
+                   (if (and (consp (car tail))
+                            (eq (car (car tail)) key))
+                       (setq alist (delq (car tail) alist)))
+                   (setq tail (cdr tail))))
                (setq list (cdr list))))
            (setq load-path (delq TeX-lisp-directory load-path))))