diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/emacsbug.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 1a02ae7c519..742c05bc8d5 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el | |||
| @@ -304,9 +304,14 @@ usually do not have translators for other languages.\n\n"))) | |||
| 304 | (insert "\n")) | 304 | (insert "\n")) |
| 305 | (insert "\n") | 305 | (insert "\n") |
| 306 | (insert "Load-path shadows:\n") | 306 | (insert "Load-path shadows:\n") |
| 307 | (message "Checking for load-path shadows...") | 307 | (let* ((msg "Checking for load-path shadows...") |
| 308 | (let ((shadows (list-load-path-shadows t))) | 308 | (result "done") |
| 309 | (message "Checking for load-path shadows...done") | 309 | (shadows (progn (message "%s" msg) |
| 310 | (condition-case nil (list-load-path-shadows t) | ||
| 311 | (error | ||
| 312 | (setq result "error") | ||
| 313 | "Error during checking"))))) | ||
| 314 | (message "%s%s" msg result) | ||
| 310 | (insert (if (zerop (length shadows)) | 315 | (insert (if (zerop (length shadows)) |
| 311 | "None found.\n" | 316 | "None found.\n" |
| 312 | shadows))) | 317 | shadows))) |