[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el [lexbind]

[Miles Bader]

Index: emacs/lisp/mail/emacsbug.el
diff -c emacs/lisp/mail/emacsbug.el:1.57.2.1 
emacs/lisp/mail/emacsbug.el:1.57.2.2
*** emacs/lisp/mail/emacsbug.el:1.57.2.1        Fri Apr  4 01:20:27 2003
--- emacs/lisp/mail/emacsbug.el Tue Oct 14 19:39:25 2003
***************
*** 79,84 ****
--- 79,85 ----
    ;; 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,146 ****
--- 142,156 ----
      (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,258 ****
--- 265,269 ----
  
  (provide 'emacsbug)
  
+ ;;; arch-tag: 248b6523-c3b5-4fec-9a3f-0411fafa7d49
  ;;; emacsbug.el ends here