[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/tex-site.el.in
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/tex-site.el.in |
Date: |
Thu, 19 May 2005 11:21:25 -0400 |
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.