diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-06 08:51:48 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-06 08:51:48 -0400 |
| commit | b7bb58381961ddb74fe347a2c4076113c73d75a6 (patch) | |
| tree | ba1edc8912e106347bd223caa8478c0b3cdd001d /lisp/emacs-lisp | |
| parent | dfb308badd63c6046545293306117c1ff117b8f0 (diff) | |
| download | emacs-b7bb58381961ddb74fe347a2c4076113c73d75a6.tar.gz emacs-b7bb58381961ddb74fe347a2c4076113c73d75a6.tar.bz2 emacs-b7bb58381961ddb74fe347a2c4076113c73d75a6.zip | |
* lisp/emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output
with "loading" messages.
Fixes: debbugs:11635
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |