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 |