* lisp/emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output

with "loading" messages.

Fixes: debbugs:11635

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ba7a327ad3..343368bc591 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output
+        with "loading" messages (bug#11635).
+
 2012-06-06  Michael Albinus  <michael.albinus@gmx.de>
 
         * files.el (enable-remote-dir-locals): New option.
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index b021abe71ea..514824554d1 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -188,7 +188,8 @@ Assumes the caller has bound `macroexpand-all-environment'."
                      (or (not (eq (car-safe (symbol-function func))
                                   'autoload))
                          (ignore-errors
-                           (load (nth 1 (symbol-function func))))))
+                           (load (nth 1 (symbol-function func))
+                                 'noerror 'nomsg))))
            ;; Follow the sequence of aliases.
            (setq func (symbol-function func)))
          (if (null handler)