diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-11-25 02:58:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-11-25 02:58:34 +0000 |
| commit | 4cead7a2061908496ad8faf0fe0db451fa28b57e (patch) | |
| tree | 397ba452a7a7f84f27c9aa21f665209d6ce42911 /lisp/emacs-lisp/byte-opt.el | |
| parent | 71eb63089686581963cd7a34aa39f7a901cff82e (diff) | |
| download | emacs-4cead7a2061908496ad8faf0fe0db451fa28b57e.tar.gz emacs-4cead7a2061908496ad8faf0fe0db451fa28b57e.tar.bz2 emacs-4cead7a2061908496ad8faf0fe0db451fa28b57e.zip | |
(byte-optimize-form-code-walker):
Use with-no-warnings around compiler-macroexpand.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 4ea9398f93d..acb882dd9a3 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -520,7 +520,8 @@ (symbolp (car-safe form)) (get (car-safe form) 'cl-compiler-macro) (not (eq form - (setq form (compiler-macroexpand form))))) + (with-no-warnings + (setq form (compiler-macroexpand form)))))) (byte-optimize-form form for-effect)) ((not (symbolp fn)) |