mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(report-emacs-bug): Fix previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-10-05 13:51:43 +00:00
parent 718e6bc777
commit 3c3ba27b4b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mail/emacsbug.el
View File

@ -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)))