[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 63a83c376142ae47a45420830964dda65d3d6e37

[Mosè Giordano]

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 <address@hidden>
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 <address@hidden>

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