Re: report-emacs-bug

[Kevin Rodgers]

Richard Stallman wrote:

> This is a good idea--would someone like to do it?
>
> To: address@hidden
> From: Dan Jacobson <address@hidden>
> Date: Sat, 20 Sep 2003 03:24:56 +0800
> Subject: report-emacs-bug could also list current modes
> Sender: address@hidden
>
> 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