procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2009-07-22 02:34:51 +00:00
parent 7ba65108e5
commit 0b9521973e
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/emacsbug.el
View file

@ -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)))