[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Bug-AUCTeX] 11.81; removing AUCTeX
From: |
Les Saper |
Subject: |
Re: [Bug-AUCTeX] 11.81; removing AUCTeX |
Date: |
Fri, 18 Nov 2005 10:29:01 -0500 |
Inserting the code below into .emacs belofore `(unload-feature
'tex-site)' apparently solves the problem. Thanks!
- Les
On Nov 18,2005 16:08:24 +0100, Ralf Angeli <address@hidden> wrote :
>
>Does it help if you put the following forms into your .emacs file
>before you call `unload-feature'?
>
>(remove-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))))
>(add-hook 'tex-site-unload-hook
> (lambda ()
> (let ((list after-load-alist))
> (while list
> ;; Substitute for `(assq-delete-all'TeX-modes-set (car
> ;; list))' which fails on non-list elements in Emacs 21.
> (let ((tail (car list)))
> (while tail
> (if (and (consp (car tail))
> (eq (car (car tail)) 'TeX-modes-set))
> (setcar list (delq (car tail) (car list))))
> (setq tail (cdr tail))))
> (setq list (cdr list))))
> (setq load-path (delq TeX-lisp-directory load-path))))