This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU AUCTeX".
The branch, master has been updated via 63a83c376142ae47a45420830964dda65d3d6e37 (commit) from 1c397d50161c6f6ce45879e9a94b4c773acfc502 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 63a83c376142ae47a45420830964dda65d3d6e37 Author: Ikumi Keita <ik...@ikumi.que.jp> Date: Sat Apr 23 18:49:19 2016 +0200 Make unloading of tex-site work on Emacs 24 * tex-site.el.in (tex-site-unload-hook): Run `TeX-modes-set' when `advice-add' is defined. Signed-off-by: Mosè Giordano <m...@gnu.org> diff --git a/tex-site.el.in b/tex-site.el.in index 8937315..1fcc4da 100644 --- a/tex-site.el.in +++ b/tex-site.el.in @@ -87,21 +87,23 @@ shared by all users of a site." (add-hook 'tex-site-unload-hook (lambda () - (let ((list after-load-alist)) - (while list - ;; Adapted copy of the definition of `assq-delete-all' - ;; from Emacs 21 as substitute for - ;; `(assq-delete-all'TeX-modes-set (car list))' which - ;; fails on non-list elements in Emacs 21. - (let* ((alist (car list)) - (tail alist) - (key 'TeX-modes-set)) - (while tail - (if (and (consp (car tail)) - (eq (car (car tail)) key)) - (setq alist (delq (car tail) alist))) - (setq tail (cdr tail)))) - (setq list (cdr list)))) + (if (fboundp 'advice-add) + (TeX-modes-set 'TeX-modes nil) + (let ((list after-load-alist)) + (while list + ;; Adapted copy of the definition of `assq-delete-all' + ;; from Emacs 21 as substitute for + ;; `(assq-delete-all'TeX-modes-set (car list))' which + ;; fails on non-list elements in Emacs 21. + (let* ((alist (car list)) + (tail alist) + (key 'TeX-modes-set)) + (while tail + (if (and (consp (car tail)) + (eq (car (car tail)) key)) + (setq alist (delq (car tail) alist))) + (setq tail (cdr tail)))) + (setq list (cdr list))))) (setq load-path (delq TeX-lisp-directory load-path)))) (defun TeX-modes-set (var value &optional update) ----------------------------------------------------------------------- Summary of changes: tex-site.el.in | 32 +++++++++++++++++--------------- 1 file changed, 17 insertions(+), 15 deletions(-) hooks/post-receive -- GNU AUCTeX
_______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs