(byte-compile-lambda): Handle progn like let, inside interactive spec.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index e2d3b3411fa791bb04f761a91f4ee85bb77f9350..81ef7b6e8776c528ffa58b4d7d121b3c5cb3cb34 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.115 $")
+(defconst byte-compile-version "$Revision: 2.116 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -2405,9 +2405,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
                  ;; don't compile it, because `call-interactively'
                  ;; looks at the args of `list'.
                  (let ((form (nth 1 int)))
-                   (while (or (eq (car-safe form) 'let)
-                              (eq (car-safe form) 'let*)
-                              (eq (car-safe form) 'save-excursion))
+                   (while (memq (car-safe form) '(let let* progn save-excursion))
                      (while (consp (cdr form))
                        (setq form (cdr form)))
                      (setq form (car form)))