mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

* mail/emacsbug.el (report-emacs-bug): Trap load-path-shadows errors.

Browse Source
This commit is contained in:
Glenn Morris 2012-09-09 19:19:23 -07:00
parent 48e8c8aad6
commit fa05bfe052
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2012-09-10 Glenn Morris <rgm@gnu.org>
* mail/emacsbug.el (report-emacs-bug): Trap load-path-shadows errors.
2012-09-08 Alan Mackenzie <acm@muc.de>
AWK Mode: make auto-newline work when there's "==" in the pattern.

11
lisp/mail/emacsbug.el
View File

@ -304,9 +304,14 @@ usually do not have translators for other languages.\n\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")
(let* ((msg "Checking for load-path shadows...")
(result "done")
(shadows (progn (message "%s" msg)
(condition-case nil (list-load-path-shadows t)
(error
(setq result "error")
"Error during checking")))))
(message "%s%s" msg result)
(insert (if (zerop (length shadows))
"None found.\n"
shadows)))