# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1036559224 0
# Node ID 97a8350482417afce95bc8918755e00dadd6e15e
# Parent  a65d281d19f0dd1d65e5aa66e64609eff52a36c6
(byte-compile-lambda): Handle progn like let, inside interactive spec.

diff -r a65d281d19f0 -r 97a835048241 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Nov 06 05:05:47 2002 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Nov 06 05:07:04 2002 +0000
@@ -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 @@
 		  ;; 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)))