mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(reporter-submit-bug-report):

Browse source 
Don't abuse make-variable-buffer-local.  Fix call to add-hook.
This commit is contained in:
Stefan Monnier 2001-07-16 01:50:49 +00:00
parent 33fa669197
commit 1407571dbe
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/reporter.el
View file

@ -318,7 +318,7 @@ is non-nil.
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 @@ mail-sending package is used for editing and sending the message."
(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