[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: |
David Kastrup |
Subject: |
[AUCTeX-diffs] Changes to auctex/tex-site.el.in |
Date: |
Mon, 02 May 2005 10:37:55 -0400 |
Index: auctex/tex-site.el.in
diff -u auctex/tex-site.el.in:1.25 auctex/tex-site.el.in:1.26
--- auctex/tex-site.el.in:1.25 Sat Apr 30 22:56:24 2005
+++ auctex/tex-site.el.in Mon May 2 14:37:44 2005
@@ -74,6 +74,12 @@
(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))))
+
(defun TeX-modes-set (var value &optional update)
"Set VAR (which should be `TeX-modes') to VALUE.
@@ -89,10 +95,10 @@
(when (or update (null (get elt 'tex-saved)))
(when (fboundp elt)
(put elt 'tex-saved (symbol-function elt))))
- (fset elt
- (if (memq elt value)
- (intern (concat "TeX-" (symbol-name elt)))
- (get elt 'tex-saved))))))
+ (defalias elt
+ (if (memq elt value)
+ (intern (concat "TeX-" (symbol-name elt)))
+ (get elt 'tex-saved))))))
(defcustom TeX-modes
(mapcar 'car TeX-mode-alist)