Re: report-emacs-bug

[Kevin Rodgers <ihs_4664@yahoo.com>]

Richard Stallman wrote:

> This is a good idea--would someone like to do it?
> 
> To: bug-gnu-emacs@gnu.org
> From: Dan Jacobson <jidanni@jidanni.org>
> Date: Sat, 20 Sep 2003 03:24:56 +0800
> Subject: report-emacs-bug could also list current modes
> Sender: bug-gnu-emacs-bounces+rms=gnu.org@gnu.org
> 
> report-emacs-bug in its report could also list the current major and minor modes in
> effect...

Here ya go:

*** emacs-21.3/lisp/mail/emacsbug.el.orig	Fri Aug 31 11:59:42 2001
--- emacs-21.3/lisp/mail/emacsbug.el	Mon Sep 22 11:55:25 2003
***************
*** 75,80 ****
--- 75,91 ----
     ;; If there are four numbers in emacs-version, this is a pretest
     ;; version.
     (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
+         (buffer-info (concat  "  major-mode: " (symbol-name major-mode) "\n"
+                               "  active minor modes: "
+                               (mapconcat (lambda (key-value)
+                                            (let ((variable (car key-value)))
+                                              (if (and (boundp variable)
+                                                       (symbol-value variable))
+                                                  (concat (symbol-name variable)
+                                                          " "))))
+                                          minor-mode-alist
+                                          "")
+                               "\n"))
   	user-point message-end-point)
       (setq message-end-point
   	  (with-current-buffer (get-buffer-create "*Messages*")
***************
*** 126,131 ****
--- 137,145 ----
       (insert (format "  locale-coding-system: %s\n" locale-coding-system))
       (insert (format "  default-enable-multibyte-characters: %s\n"
   		    default-enable-multibyte-characters))
+     ;; (insert "\n")
+     ;; (insert "Buffer info:\n")
+     (insert buffer-info)
       (insert "\n")
       (insert "Please describe exactly what actions triggered the bug\n"
   	    "and the precise symptoms of the bug:\n\n")

-- 
Kevin Rodgers