From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 6 Jun 2012 12:51:48 +0000 (-0400)
Subject: * lisp/emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output
X-Git-Tag: emacs-24.2.90~1199^2~474^2~114
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7bb58381961ddb74fe347a2c4076113c73d75a6;p=emacs.git

* 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 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)