1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 91647a67648..ea926ae1475 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -179,7 +179,7 @@ value of last one, or nil if there are none.
 \(fn COND BODY...)"
  (declare (indent 1) (debug t))
-  (list 'if cond (macroexp-progn body)))
+  (list 'if cond (cons 'progn body)))
 (defmacro unless (cond &rest body)
  "If COND yields nil, do BODY, else return nil.

diff --git a/lisp/subr.el b/lisp/subr.el index 91647a67648..ea926ae1475 100644 --- a/lisp/subr.el +++ b/lisp/subr.el
@@ -179,7 +179,7 @@ value of last one, or nil if there are none.
179		179
180	\(fn COND BODY...)"	180	\(fn COND BODY...)"
181	(declare (indent 1) (debug t))	181	(declare (indent 1) (debug t))
182	(list 'if cond (macroexp-progn body)))	182	(list 'if cond (cons 'progn body)))
183		183
184	(defmacro unless (cond &rest body)	184	(defmacro unless (cond &rest body)
185	"If COND yields nil, do BODY, else return nil.	185	"If COND yields nil, do BODY, else return nil.