[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el
From: |
Markus Rost |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el |
Date: |
Sat, 18 May 2002 15:18:46 -0400 |
Index: emacs/lisp/mail/emacsbug.el
diff -c emacs/lisp/mail/emacsbug.el:1.55 emacs/lisp/mail/emacsbug.el:1.56
*** emacs/lisp/mail/emacsbug.el:1.55 Mon May 13 11:42:10 2002
--- emacs/lisp/mail/emacsbug.el Sat May 18 15:18:46 2002
***************
*** 55,60 ****
--- 55,63 ----
(defvar report-emacs-bug-orig-text nil
"The automatically-created initial text of bug report.")
+ (defvar report-emacs-bug-text-prompt nil
+ "The automatically-created initial prompt of bug report.")
+
(defcustom report-emacs-bug-no-confirmation nil
"*If non-nil, suppress the confirmations asked for the sake of novice
users."
:group 'emacsbug
***************
*** 75,81 ****
;; If there are four numbers in emacs-version, this is a pretest
;; version.
(let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
! user-point message-end-point)
(setq message-end-point
(with-current-buffer (get-buffer-create "*Messages*")
(point-max-marker)))
--- 78,84 ----
;; If there are four numbers in emacs-version, this is a pretest
;; version.
(let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
! user-point prompt-beg-point message-end-point)
(setq message-end-point
(with-current-buffer (get-buffer-create "*Messages*")
(point-max-marker)))
***************
*** 92,97 ****
--- 95,101 ----
(delete-region (point) (point-max))
(insert signature)
(backward-char (length signature)))
+ (setq prompt-beg-point (point))
(unless report-emacs-bug-no-explanations
;; Insert warnings for novice users.
(insert "This bug report will be sent to the Free Software
Foundation,\n")
***************
*** 112,122 ****
(insert ".\n\n")
(insert ",\nand to the gnu.emacs.bug news group.\n\n")))
(insert "In " (emacs-version) "\n")
(if (and system-configuration-options
(not (equal system-configuration-options "")))
(insert "configured using `configure "
! system-configuration-options "'\n"))
(insert "Important settings:\n")
(mapcar
'(lambda (var)
--- 116,135 ----
(insert ".\n\n")
(insert ",\nand to the gnu.emacs.bug news group.\n\n")))
+ (insert "Please describe exactly what actions triggered the bug\n"
+ "and the precise symptoms of the bug:")
+ (setq report-emacs-bug-text-prompt
+ (buffer-substring prompt-beg-point (point)))
+
+ (insert "\n\n")
+ (setq user-point (point))
+ (insert "\n\n\n")
+
(insert "In " (emacs-version) "\n")
(if (and system-configuration-options
(not (equal system-configuration-options "")))
(insert "configured using `configure "
! system-configuration-options "'\n\n"))
(insert "Important settings:\n")
(mapcar
'(lambda (var)
***************
*** 127,137 ****
(insert (format " default-enable-multibyte-characters: %s\n"
default-enable-multibyte-characters))
(insert "\n")
! (insert "Please describe exactly what actions triggered the bug\n"
! "and the precise symptoms of the bug:\n\n")
! (setq user-point (point))
! (insert "\n\n\n"
! "Recent input:\n")
(let ((before-keys (point)))
(insert (mapconcat (lambda (key)
(if (or (integerp key)
--- 140,146 ----
(insert (format " default-enable-multibyte-characters: %s\n"
default-enable-multibyte-characters))
(insert "\n")
! (insert "Recent input:\n")
(let ((before-keys (point)))
(insert (mapconcat (lambda (key)
(if (or (integerp key)
***************
*** 239,250 ****
;; Unclutter
(mail-text)
! (let ((p (point)))
! (if (re-search-forward (concat "^In " (emacs-version)) nil t)
! (delete-region p (match-beginning 0))))
! (if (re-search-forward "Please describe.+\n.+precise symptoms.+bug:\n*"
! (point-max) t)
! (replace-match "Symptoms:\n"))))
(provide 'emacsbug)
--- 248,255 ----
;; Unclutter
(mail-text)
! (if (looking-at report-emacs-bug-text-prompt)
! (replace-match "Symptoms:"))))
(provide 'emacsbug)