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

[David Kastrup]

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)