/[auctex]/auctex/tex-site.el.in
ViewVC logotype

Diff of /auctex/tex-site.el.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by dak, Mon May 2 21:34:02 2005 UTC revision 1.28 by angeli, Thu May 19 15:21:24 2005 UTC
# Line 74  shared by all users of a site." Line 74  shared by all users of a site."
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.
# Line 111  set it with `TeX-modes-set'." Line 113  set it with `TeX-modes-set'."
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.

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26