Mercurial > emacs

changeset 55042:770ebdee7214

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-no-warnings): Handle multiple args: compile like progn.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Apr 2004 19:12:04 +0000
parents 1376729a93a7
children f3cd7742ff36
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Wed Apr 21 19:10:29 2004 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Apr 21 19:12:04 2004 +0000
@@ -3716,7 +3716,8 @@
 (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