[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.27 auctex/tex-site.el.in:1.28
--- auctex/tex-site.el.in:1.27  Mon May  2 21:34:02 2005
+++ auctex/tex-site.el.in       Thu May 19 15:21:24 2005
@@ -74,11 +74,13 @@
 
 (defalias 'TeX-load-hack 'ignore)
 
-(add-hook 'tex-site-unload-hook (lambda ()
-                                 (dolist (elt after-load-alist)
-                                   (assq-delete-all 'TeX-modes-set elt))
-                                 (setq load-path
-                                       (delq TeX-lisp-directory load-path))))
+(add-hook 'tex-site-unload-hook
+         (lambda ()
+           (let ((list after-load-alist))
+             (while list
+               (assq-delete-all 'TeX-modes-set (car list))
+               (setq list (cdr list))))
+           (setq load-path (delq TeX-lisp-directory load-path))))
 
 (defun TeX-modes-set (var value &optional update)
   "Set VAR (which should be `TeX-modes') to VALUE.
@@ -111,9 +113,11 @@
   :set 'TeX-modes-set
   :initialize (lambda (var value)
                (custom-initialize-reset var value)
-               (dolist (elt TeX-mode-alist)
-                 (eval-after-load (cdr elt)
-                   `(TeX-modes-set ',var ,var t)))))
+               (let ((list TeX-mode-alist))
+                 (while list
+                   (eval-after-load (cdar list)
+                     `(TeX-modes-set ',var ,var t))
+                   (setq list (cdr list))))))
 
 (defconst AUCTeX-version "@AUCTEXVERSION@"
     "AUCTeX version.