From: Glenn Morris <rgm@gnu.org>
Date: Wed, 22 Jul 2009 02:34:51 +0000 (+0000)
Subject: (report-emacs-bug): Include any load-path shadows.
X-Git-Tag: emacs-pretest-23.1.90~2068
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b9521973ec469fc55ee0aa927cbaf2b4123459f;p=emacs.git

(report-emacs-bug): Include any load-path shadows.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 7132da6785d..e09b68de2b3 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -206,6 +206,18 @@ usually do not have translators to read other languages for them.\n\n")
 	      (setq beg-pos (point)))
 	    (insert "\n\nRecent messages:\n")
 	    (insert-buffer-substring message-buf beg-pos end-pos))))
+    ;; After Recent messages, to avoid the messages produced by
+    ;; list-load-path-shadows.
+    (unless (looking-back "\n")
+      (insert "\n"))
+    (insert "\n")
+    (insert "Load-path shadows:\n")
+    (message "Checking for load-path shadows...")
+    (let ((shadows (list-load-path-shadows t)))
+      (message "Checking for load-path shadows...done")
+      (insert (if (zerop (length shadows))
+                  "None found.\n"
+                shadows)))
     ;; This is so the user has to type something
     ;; in order to send easily.
     (use-local-map (nconc (make-sparse-keymap) (current-local-map)))