mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(byte-optimize-form-code-walker):

Browse Source 
Use with-no-warnings around compiler-macroexpand.
This commit is contained in:
Richard M. Stallman 2004-11-25 02:58:34 +00:00
parent 71eb630896
commit 4cead7a206
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/byte-opt.el
View File

@ -520,7 +520,8 @@
(symbolp (car-safe form)) (symbolp (car-safe form))
(get (car-safe form) 'cl-compiler-macro) (get (car-safe form) 'cl-compiler-macro)
(not (eq form (not (eq form
(setq form (compiler-macroexpand form))))) (with-no-warnings
(setq form (compiler-macroexpand form))))))
(byte-optimize-form form for-effect)) (byte-optimize-form form for-effect))
((not (symbolp fn)) ((not (symbolp fn))