Mercurial > emacs
changeset 38416:ac6b0bba8fcc
(reporter-submit-bug-report):
Don't abuse make-variable-buffer-local. Fix call to add-hook.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 16 Jul 2001 01:50:49 +0000 |
| parents | 80b960104fbd |
| children | 0cb7d94430a0 |
| files | lisp/mail/reporter.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/reporter.el Sun Jul 15 20:49:53 2001 +0000 +++ b/lisp/mail/reporter.el Mon Jul 16 01:50:49 2001 +0000 @@ -318,7 +318,7 @@ This function does not send a message; it uses the given information to initialize a a messagem, which the user can then edit and finally send -(or decline to send). The variable `mail-user-agent' controls which +\(or decline to send). The variable `mail-user-agent' controls which mail-sending package is used for editing and sending the message." (let ((reporter-eval-buffer (current-buffer)) final-resting-place @@ -370,9 +370,7 @@ (skip-chars-backward " \t\n") (setq reporter-initial-text (buffer-substring after-sep-pos (point)))) (if (setq hookvar (get agent 'hookvar)) - (progn - (make-variable-buffer-local hookvar) - (add-hook hookvar 'reporter-bug-hook))) + (add-hook hookvar 'reporter-bug-hook nil t)) ;; compose the minibuf message and display this. (let* ((sendkey-whereis (where-is-internal