Commit a4f66531 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Fix previous change.

parent 0a0eb031
......@@ -3716,8 +3716,7 @@ 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)
(setcar form 'progn)
(byte-compile-form form)))
(byte-compile-form (cons 'progn (cdr form)))))
;;; tags
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment