Commit 0b952197 authored by Glenn Morris's avatar Glenn Morris

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

parent 7ba65108
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment