diff options
| author | Richard M. Stallman | 1996-04-05 16:05:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-04-05 16:05:03 +0000 |
| commit | 2e8174d2ce85484aa095f151ca4dac06648c97cf (patch) | |
| tree | 0694cc592c0825b675f134cc80baf7905874efb3 /lisp/ehelp.el | |
| parent | 408be6610bcbce87bc541a069b1c8c64b602080d (diff) | |
| download | emacs-2e8174d2ce85484aa095f151ca4dac06648c97cf.tar.gz emacs-2e8174d2ce85484aa095f151ca4dac06648c97cf.zip | |
(electric-help-mode): Use add-hook mouse-leave-buffer-hook.
(electric-help-retain): Use remove-hook.
Diffstat (limited to 'lisp/ehelp.el')
| -rw-r--r-- | lisp/ehelp.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 5964157d748..14401f7c9a5 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el | |||
| @@ -88,7 +88,7 @@ | |||
| 88 | (setq major-mode 'help) | 88 | (setq major-mode 'help) |
| 89 | (setq mode-line-buffer-identification '(" Help: %b")) | 89 | (setq mode-line-buffer-identification '(" Help: %b")) |
| 90 | (use-local-map electric-help-map) | 90 | (use-local-map electric-help-map) |
| 91 | (setq mouse-leave-buffer-hook '(electric-help-retain)) | 91 | (add-hook 'mouse-leave-buffer-hook 'electric-help-retain) |
| 92 | (view-mode -1) | 92 | (view-mode -1) |
| 93 | ;; this is done below in with-electric-help | 93 | ;; this is done below in with-electric-help |
| 94 | ;(run-hooks 'electric-help-mode-hook) | 94 | ;(run-hooks 'electric-help-mode-hook) |
| @@ -232,10 +232,10 @@ will select it.)" | |||
| 232 | (interactive) | 232 | (interactive) |
| 233 | ;; Make sure that we don't throw twice, even if two events cause | 233 | ;; Make sure that we don't throw twice, even if two events cause |
| 234 | ;; calling this function: | 234 | ;; calling this function: |
| 235 | (if mouse-leave-buffer-hook | 235 | (if (memq 'electric-help-retain mouse-leave-buffer-hook) |
| 236 | (progn | 236 | (progn |
| 237 | (setq mouse-leave-buffer-hook nil) | 237 | (remove-hook 'mouse-leave-buffer-hook 'electric-help-retain) |
| 238 | (throw 'exit '(retain))))) | 238 | (throw 'exit '(retain))))) |
| 239 | 239 | ||
| 240 | 240 | ||
| 241 | (defun electric-help-undefined () | 241 | (defun electric-help-undefined () |