diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-04-21 19:13:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-04-21 19:13:00 +0000 |
| commit | a4f66531945826f4a12d6c41bfa80ef89eff33ed (patch) | |
| tree | 90480023c57443531ef9bc5a7fe06ad64310f798 /lisp/emacs-lisp | |
| parent | 0a0eb031ad22316fc25b80afbf1595e5bcdb59ac (diff) | |
| download | emacs-a4f66531945826f4a12d6c41bfa80ef89eff33ed.tar.gz emacs-a4f66531945826f4a12d6c41bfa80ef89eff33ed.tar.bz2 emacs-a4f66531945826f4a12d6c41bfa80ef89eff33ed.zip | |
Fix previous change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
1 files changed, 1 insertions, 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 |