diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-10-05 13:51:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-10-05 13:51:43 +0000 |
| commit | 3c3ba27b4b12c4f32b75661f9f69ff181dd03531 (patch) | |
| tree | 2140d32c3abba9dda4d7bfca185c7e93b7e02822 /lisp/mail/emacsbug.el | |
| parent | 718e6bc7771b6983b6407b363f583128f96237dd (diff) | |
| download | emacs-3c3ba27b4b12c4f32b75661f9f69ff181dd03531.tar.gz emacs-3c3ba27b4b12c4f32b75661f9f69ff181dd03531.tar.bz2 emacs-3c3ba27b4b12c4f32b75661f9f69ff181dd03531.zip | |
(report-emacs-bug): Fix previous change.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index c4a52299d9a..e93f76c3042 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -79,6 +79,7 @@ Prompts for bug subject. Leaves you in a mail buffer." ;; If there are four numbers in emacs-version, this is a pretest ;; version. (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version)) + (from-buffer (current-buffer)) user-point prompt-beg-point message-end-point) (setq message-end-point (with-current-buffer (get-buffer-create "*Messages*") @@ -141,12 +142,14 @@ usually do not have translators to read other languages for them.\n\n") (insert (format " default-enable-multibyte-characters: %s\n" default-enable-multibyte-characters)) (insert "\n") - (insert (format "Major mode: %s\n" mode-name)) + (insert (format "Major mode: %s\n" + (buffer-local-value 'mode-name from-buffer))) (insert "\n") (insert "Minor modes in effect:\n") (dolist (mode minor-mode-list) - (and (boundp mode) (symbol-value mode) - (insert (format " %s: %s\n" mode (symbol-value mode))))) + (and (boundp mode) (buffer-local-value mode from-buffer) + (insert (format " %s: %s\n" mode + (buffer-local-value mode from-buffer))))) (insert "\n") (insert "Recent input:\n") (let ((before-keys (point))) |