Mercurial > emacs
diff lisp/mail/emacsbug.el @ 104022:27b0fc89d852
(report-emacs-bug): Include any load-path shadows.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 22 Jul 2009 02:34:51 +0000 |
parents | a9dc0e7c3f2b |
children | 68150c643e2e |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Wed Jul 22 02:34:11 2009 +0000 +++ b/lisp/mail/emacsbug.el Wed Jul 22 02:34:51 2009 +0000 @@ -206,6 +206,18 @@ (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)))