From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Oct 2004 06:54:13 +0000 (+0000)
Subject: (help-at-pt-unload-hook): Use add-hook; no defvar.
X-Git-Tag: ttn-vms-21-2-B4~4529
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35f825bdaba522387f525cc2d4cac78420770375;p=emacs.git

(help-at-pt-unload-hook): Use add-hook; no defvar.
---

diff --git a/lisp/help-at-pt.el b/lisp/help-at-pt.el
index ad1f2b3a96a..d6ac6ec3fdc 100644
--- a/lisp/help-at-pt.el
+++ b/lisp/help-at-pt.el
@@ -348,8 +348,7 @@ different regions.  With numeric argument ARG, behaves like
   (interactive "p")
   (scan-buf-move-to-region 'help-echo (- arg) 'scan-buf-move-hook))
 
-(defvar help-at-pt-unload-hook '(help-at-pt-cancel-timer)
-  "Normal hook run when `help-at-pt' is unloaded.")
+(add-hook 'help-at-pt-unload-hook 'help-at-pt-cancel-timer)
 
 (provide 'help-at-pt)