Mercurial > emacs
changeset 48171:97a835048241
(byte-compile-lambda): Handle progn like let, inside interactive spec.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Nov 2002 05:07:04 +0000 |
| parents | a65d281d19f0 |
| children | ce9e21650e0c |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)))