From 1407571dbe26b5b484dbf4f3d434c788969eebb2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 16 Jul 2001 01:50:49 +0000 Subject: [PATCH] (reporter-submit-bug-report): Don't abuse make-variable-buffer-local. Fix call to add-hook. --- lisp/mail/reporter.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el index 341ef8de2b2..60fabaebf0f 100644 --- a/lisp/mail/reporter.el +++ b/lisp/mail/reporter.el @@ -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 -- 2.39.2