report-emacs-bug

report-emacs-bug

[Richard Stallman]

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...

By the way, aside from blabberous describe-mode, and staring at the
mode line, where is a concise list of the current modes in effect?
There is no list-modes, show-modes, etc.
I do apropos modes, and see things like "minor-modes" with no
explanation of what they are doing there on a separate line:
(apropos "modes" nil)

mc-modes-alist
  Variable: Association list (indexed by major mode) of association lists
  Plist: variable-documentation
minor-modes
mmm-c-derived-modes
  Variable: (not documented)
...
mode-line-modes
  Plist: risky-local-variable
modes
modesym
nnmail-default-file-modes
  Variable: Set the mode bits of all new mail files to this integer.


_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs

Re: report-emacs-bug

[Kevin Rodgers]

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