mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
with "loading" messages.

Fixes: debbugs:11635
This commit is contained in:
Stefan Monnier 2012-06-06 08:51:48 -04:00
parent dfb308badd
commit b7bb583819
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

3
lisp/emacs-lisp/macroexp.el
View file

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