From ab8bc7178cf211c0af13c61729c4032a641c66d1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Nov 2002 05:07:04 +0000 Subject: [PATCH] (byte-compile-lambda): Handle progn like let, inside interactive spec. --- lisp/emacs-lisp/bytecomp.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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))) -- 2.39.2