Mercurial > emacs
comparison lisp/help-at-pt.el @ 57542:06006ae6008a
(help-at-pt-unload-hook): Use add-hook; no defvar.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 Oct 2004 06:54:13 +0000 |
| parents | d3e10b0b1a2e |
| children | bb24af8f5452 f3ec05478165 |
comparison
equal
deleted
inserted
replaced
| 57541:841073f11023 | 57542:06006ae6008a |
|---|---|
| 346 different regions. With numeric argument ARG, behaves like | 346 different regions. With numeric argument ARG, behaves like |
| 347 `scan-buf-next-region' with argument -ARG.." | 347 `scan-buf-next-region' with argument -ARG.." |
| 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 |
| 356 ;;; arch-tag: d0b8b86d-d23f-45d0-a82d-208d6205a583 | 355 ;;; arch-tag: d0b8b86d-d23f-45d0-a82d-208d6205a583 |
| 357 ;;; help-at-pt.el ends here | 356 ;;; help-at-pt.el ends here |