From: Glenn Morris <rgm@gnu.org>
Date: Mon, 10 Sep 2012 02:19:23 +0000 (-0700)
Subject: * mail/emacsbug.el (report-emacs-bug): Trap load-path-shadows errors.
X-Git-Tag: emacs-24.2.90~269^2~3^2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa05bfe0525d75bde4c94c3cbbd90c5fa7a5a7dc;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34e391a8c57..5d0d00be9dc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
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")))
       (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)))