diff options
| author | Richard M. Stallman | 2004-10-17 06:54:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-17 06:54:13 +0000 |
| commit | 35f825bdaba522387f525cc2d4cac78420770375 (patch) | |
| tree | 79a9d1e891b77f88de013843493de5e0b65976c8 | |
| parent | 86bd482f7068474b8a7f03d73dbcaf1a2861583d (diff) | |
| download | emacs-35f825bdaba522387f525cc2d4cac78420770375.tar.gz emacs-35f825bdaba522387f525cc2d4cac78420770375.zip | |
(help-at-pt-unload-hook): Use add-hook; no defvar.
| -rw-r--r-- | lisp/help-at-pt.el | 3 |
1 files changed, 1 insertions, 2 deletions
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 | |||
| 348 | (interactive "p") | 348 | (interactive "p") |
| 349 | (scan-buf-move-to-region 'help-echo (- arg) 'scan-buf-move-hook)) | 349 | (scan-buf-move-to-region 'help-echo (- arg) 'scan-buf-move-hook)) |
| 350 | 350 | ||
| 351 | (defvar help-at-pt-unload-hook '(help-at-pt-cancel-timer) | 351 | (add-hook 'help-at-pt-unload-hook 'help-at-pt-cancel-timer) |
| 352 | "Normal hook run when `help-at-pt' is unloaded.") | ||
| 353 | 352 | ||
| 354 | (provide 'help-at-pt) | 353 | (provide 'help-at-pt) |
| 355 | 354 | ||