(byte-compile-no-warnings): Handle multiple args: compile like progn.
This commit is contained in:
parent
ae122ad2d4
commit
0a0eb031ad
1 changed files with 2 additions and 1 deletions
|
@ -3716,7 +3716,8 @@ being undefined will be suppressed."
|
|||
(byte-defop-compiler-1 with-no-warnings byte-compile-no-warnings)
|
||||
(defun byte-compile-no-warnings (form)
|
||||
(let (byte-compile-warnings)
|
||||
(byte-compile-form (cadr form))))
|
||||
(setcar form 'progn)
|
||||
(byte-compile-form form)))
|
||||
|
||||
;;; tags
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue