diff options
| author | Richard M. Stallman | 2003-09-30 12:45:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-09-30 12:45:44 +0000 |
| commit | e927088b531a2e7c4fcb77d1feed1b30083d52d0 (patch) | |
| tree | 83c31b326a4401cdfc29388f53f42a219a03328f | |
| parent | f6babbacc47028cde0c13131a601968aada1179d (diff) | |
| download | emacs-e927088b531a2e7c4fcb77d1feed1b30083d52d0.tar.gz emacs-e927088b531a2e7c4fcb77d1feed1b30083d52d0.zip | |
(report-emacs-bug): Mention major and minor modes.
| -rw-r--r-- | lisp/mail/emacsbug.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 59521ebf678..c4a52299d9a 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el | |||
| @@ -141,6 +141,13 @@ usually do not have translators to read other languages for them.\n\n") | |||
| 141 | (insert (format " default-enable-multibyte-characters: %s\n" | 141 | (insert (format " default-enable-multibyte-characters: %s\n" |
| 142 | default-enable-multibyte-characters)) | 142 | default-enable-multibyte-characters)) |
| 143 | (insert "\n") | 143 | (insert "\n") |
| 144 | (insert (format "Major mode: %s\n" mode-name)) | ||
| 145 | (insert "\n") | ||
| 146 | (insert "Minor modes in effect:\n") | ||
| 147 | (dolist (mode minor-mode-list) | ||
| 148 | (and (boundp mode) (symbol-value mode) | ||
| 149 | (insert (format " %s: %s\n" mode (symbol-value mode))))) | ||
| 150 | (insert "\n") | ||
| 144 | (insert "Recent input:\n") | 151 | (insert "Recent input:\n") |
| 145 | (let ((before-keys (point))) | 152 | (let ((before-keys (point))) |
| 146 | (insert (mapconcat (lambda (key) | 153 | (insert (mapconcat (lambda (key) |