From a4f66531945826f4a12d6c41bfa80ef89eff33ed Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Apr 2004 19:13:00 +0000 Subject: [PATCH] Fix previous change. --- lisp/emacs-lisp/bytecomp.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 224fd366a41..07c361fc054 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 -- 2.39.5