diff lisp/mail/emacsbug.el @ 89909:68c22ea6027c

Sync to HEAD

--- a/lisp/mail/emacsbug.el	Thu Apr 15 01:08:34 2004 +0000
+++ b/lisp/mail/emacsbug.el	Fri Apr 16 12:51:06 2004 +0000
@@ -79,6 +79,7 @@
   ;; 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,6 +142,15 @@
     (insert (format "  default-enable-multibyte-characters: %s\n"
 		    default-enable-multibyte-characters))
     (insert "\n")
+    (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) (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)))
       (insert (mapconcat (lambda (key)
@@ -255,4 +265,5 @@
 
 (provide 'emacsbug)
 
+;;; arch-tag: 248b6523-c3b5-4fec-9a3f-0411fafa7d49
 ;;; emacsbug.el ends here