74 |
|
|
75 |
(defalias 'TeX-load-hack 'ignore) |
(defalias 'TeX-load-hack 'ignore) |
76 |
|
|
77 |
(add-hook 'tex-site-unload-hook (lambda () |
(add-hook 'tex-site-unload-hook |
78 |
(dolist (elt after-load-alist) |
(lambda () |
79 |
(assq-delete-all 'TeX-modes-set elt)) |
(let ((list after-load-alist)) |
80 |
(setq load-path |
(while list |
81 |
(delq TeX-lisp-directory load-path)))) |
(assq-delete-all 'TeX-modes-set (car list)) |
82 |
|
(setq list (cdr list)))) |
83 |
|
(setq load-path (delq TeX-lisp-directory load-path)))) |
84 |
|
|
85 |
(defun TeX-modes-set (var value &optional update) |
(defun TeX-modes-set (var value &optional update) |
86 |
"Set VAR (which should be `TeX-modes') to VALUE. |
"Set VAR (which should be `TeX-modes') to VALUE. |
113 |
:set 'TeX-modes-set |
:set 'TeX-modes-set |
114 |
:initialize (lambda (var value) |
:initialize (lambda (var value) |
115 |
(custom-initialize-reset var value) |
(custom-initialize-reset var value) |
116 |
(dolist (elt TeX-mode-alist) |
(let ((list TeX-mode-alist)) |
117 |
(eval-after-load (cdr elt) |
(while list |
118 |
`(TeX-modes-set ',var ,var t))))) |
(eval-after-load (cdar list) |
119 |
|
`(TeX-modes-set ',var ,var t)) |
120 |
|
(setq list (cdr list)))))) |
121 |
|
|
122 |
(defconst AUCTeX-version "@AUCTEXVERSION@" |
(defconst AUCTeX-version "@AUCTEXVERSION@" |
123 |
"AUCTeX version. |
"AUCTeX version. |