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

with "loading" messages.

Fixes: debbugs:11635

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ba7a327ad307aa2782b0b9ef452c534002abdfb..343368bc591cd1c8f207d0be137e1fe7dc667827 100644 (file)
--- 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 b021abe71ea4ab5b21390c62cb0f9967e55c6ee9..514824554d1e209056e09c1d331909f2b0830ad0 100644 (file)
--- 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)