mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(report-emacs-bug-hook): Error if user has added no text.

Browse Source 
(report-emacs-bug): Set local report-emacs-bug-orig-text.
Add to mail-send-hook.  Use mail-send-and-exit for the echo area msg.
This commit is contained in:
Richard M. Stallman 1994-07-03 20:34:19 +00:00
parent de17da156f
commit e24ec555cb
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/mail/emacsbug.el
View File

@ -39,6 +39,12 @@
(defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu"
"Address of site maintaining mailing list for GNU Emacs bugs.")
(defvar report-emacs-bug-orig-size nil
"Size of automatically-created initial text of bug report.")
(defvar report-emacs-bug-orig-text nil
"The automatically-created initial text of bug report.")
;;;###autoload
(defun report-emacs-bug (topic)
"Report a bug in GNU Emacs.
@ -48,7 +54,25 @@ Prompts for bug subject. Leaves you in a mail buffer."
(goto-char (point-min))
(re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
(insert "In " (emacs-version) "\n\n")
(message (substitute-command-keys "Type \\[mail-send] to send bug report.")))
(message (substitute-command-keys "Type \\[mail-send-and-exit] to send bug report."))
;; Make it less likely people will send empty messages.
(make-local-variable 'mail-send-hook)
(add-hook 'mail-send-hook 'report-emacs-bug-hook)
(save-excursion
(goto-char (point-max))
(skip-chars-backward " \t\n")
(make-local-variable 'report-emacs-bug-orig-text)
(setq report-emacs-bug-orig-text (buffer-substring (point-min) (point)))))
(defun report-emacs-bug-hook ()
(save-excursion
(goto-char (point-max))
(skip-chars-backward " \t\n")
(if (and (= (- (point) (point-min))
(length report-emacs-bug-orig-text))
(equal (buffer-substring (point-min) (point))
report-emacs-bug-orig-text))
(error "No text entered in bug report"))))
(provide 'emacsbug)