From 0b9521973ec469fc55ee0aa927cbaf2b4123459f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 22 Jul 2009 02:34:51 +0000 Subject: [PATCH] (report-emacs-bug): Include any load-path shadows. --- lisp/mail/emacsbug.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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))) -- 2.39.2