From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Nov 2002 05:07:04 +0000 (+0000)
Subject: (byte-compile-lambda): Handle progn like let, inside interactive spec.
X-Git-Tag: ttn-vms-21-2-B4~12581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab8bc7178cf211c0af13c61729c4032a641c66d1;p=emacs.git

(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 e2d3b3411fa..81ef7b6e877 100644
--- 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)))