diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-07-22 02:34:51 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-07-22 02:34:51 +0000 |
| commit | 0b9521973ec469fc55ee0aa927cbaf2b4123459f (patch) | |
| tree | 5b51989c3ea232c7e0b2539bbc7051f84d69fc63 /lisp/mail/emacsbug.el | |
| parent | 7ba65108e5acf2a806339bb83e6a6c2c38177eb2 (diff) | |
| download | emacs-0b9521973ec469fc55ee0aa927cbaf2b4123459f.tar.gz emacs-0b9521973ec469fc55ee0aa927cbaf2b4123459f.tar.bz2 emacs-0b9521973ec469fc55ee0aa927cbaf2b4123459f.zip | |
(report-emacs-bug): Include any load-path shadows.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 12 |
1 files changed, 12 insertions, 0 deletions
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))) |