[Emacs-diffs] /srv/bzr/emacs/trunk r108499: * lisp/emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output

[Stefan Monnier]

------------------------------------------------------------
revno: 108499
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11635
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-06-06 08:51:48 -0400
message:
  * lisp/emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output
  with "loading" messages.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/macroexp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-06 12:34:09 +0000
+++ b/lisp/ChangeLog    2012-06-06 12:51:48 +0000
@@ -1,3 +1,8 @@
+2012-06-06  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output
+       with "loading" messages (bug#11635).
+
 2012-06-06  Michael Albinus  <address@hidden>
 
        * files.el (enable-remote-dir-locals): New option.

=== modified file 'lisp/emacs-lisp/macroexp.el'
--- a/lisp/emacs-lisp/macroexp.el       2012-06-05 16:43:43 +0000
+++ b/lisp/emacs-lisp/macroexp.el       2012-06-06 12:51:48 +0000
@@ -188,7 +188,8 @@
                      (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)