Commit 1407571d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(reporter-submit-bug-report):

Don't abuse make-variable-buffer-local.  Fix call to add-hook.
parent 33fa6691
...@@ -318,7 +318,7 @@ is non-nil. ...@@ -318,7 +318,7 @@ is non-nil.
This function does not send a message; it uses the given information 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 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." mail-sending package is used for editing and sending the message."
(let ((reporter-eval-buffer (current-buffer)) (let ((reporter-eval-buffer (current-buffer))
final-resting-place final-resting-place
...@@ -370,9 +370,7 @@ mail-sending package is used for editing and sending the message." ...@@ -370,9 +370,7 @@ mail-sending package is used for editing and sending the message."
(skip-chars-backward " \t\n") (skip-chars-backward " \t\n")
(setq reporter-initial-text (buffer-substring after-sep-pos (point)))) (setq reporter-initial-text (buffer-substring after-sep-pos (point))))
(if (setq hookvar (get agent 'hookvar)) (if (setq hookvar (get agent 'hookvar))
(progn (add-hook hookvar 'reporter-bug-hook nil t))
(make-variable-buffer-local hookvar)
(add-hook hookvar 'reporter-bug-hook)))
;; compose the minibuf message and display this. ;; compose the minibuf message and display this.
(let* ((sendkey-whereis (where-is-internal (let* ((sendkey-whereis (where-is-internal
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment