master 2017d97b 1/4: Rewrite *-unload-hook to *-unload-function

[Ikumi Keita]

branch: master
commit 2017d97b0e74a9edb92091bafcf2c4db6768599b
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Rewrite *-unload-hook to *-unload-function
    
    * tex-site.el.in (tex-site-unload-function): According to
    loadhist.el, *-unload-hook is obsolete.  Use *-unload-function
    instead.
    ; (TeX-auto-global, AUCTeX-version): Fix indent.
---
 tex-site.el.in | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/tex-site.el.in b/tex-site.el.in
index dd043c01..05ef1156 100644
--- a/tex-site.el.in
+++ b/tex-site.el.in
@@ -73,7 +73,7 @@ TeX-auto-* (automatically generated lisp).")
   "The directory where the AUCTeX non-Lisp data is located.")
 
 (defcustom TeX-auto-global
-    @lispautodir@
+  @lispautodir@
   "Directory containing automatically generated information.
 
 For storing automatic extracted information about the TeX macros
@@ -91,10 +91,11 @@ shared by all users of a site."
 
 (defalias 'TeX-load-hack #'ignore)
 
-(add-hook 'tex-site-unload-hook
-          (lambda ()
-            (TeX-modes-set 'TeX-modes nil)
-            (setq load-path (delq TeX-lisp-directory load-path))))
+(defun tex-site-unload-function ()
+  (TeX-modes-set 'TeX-modes nil)
+  (setq load-path (delq TeX-lisp-directory load-path))
+  ;; Tell emacs to continue standard unloading procedure.
+  nil)
 
 (defun TeX-modes-set (var value &optional _ignored)
   "Set VAR (which should be `TeX-modes') to VALUE.
@@ -127,7 +128,7 @@ set it with `TeX-modes-set'."
   :initialize #'custom-initialize-reset)
 
 (defconst AUCTeX-version "@AUCTEXVERSION@"
-    "AUCTeX version.
+  "AUCTeX version.
 If not a regular release, the date of the last change.")
 
 (defconst AUCTeX-date "@AUCTEXDATE@"