# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097996053 0
# Node ID 06006ae6008a5d458a6fa76c351cfbe9c9f0f6e1
# Parent  841073f11023faad088d8199e5ffdb9838c86494
(help-at-pt-unload-hook): Use add-hook; no defvar.

diff -r 841073f11023 -r 06006ae6008a lisp/help-at-pt.el
--- a/lisp/help-at-pt.el	Sun Oct 17 06:53:08 2004 +0000
+++ b/lisp/help-at-pt.el	Sun Oct 17 06:54:13 2004 +0000
@@ -348,8 +348,7 @@
   (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)