From b7bb58381961ddb74fe347a2c4076113c73d75a6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 6 Jun 2012 08:51:48 -0400 Subject: [PATCH] * lisp/emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output with "loading" messages. Fixes: debbugs:11635 --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/macroexp.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output + with "loading" messages (bug#11635). + 2012-06-06 Michael Albinus * 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) -- 2.39.2