diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-11-06 05:07:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-11-06 05:07:04 +0000 |
| commit | ab8bc7178cf211c0af13c61729c4032a641c66d1 (patch) | |
| tree | de36e3a6c07d5f6b3e1c7416c04052a1a06cbd2c /lisp/emacs-lisp | |
| parent | 746c30e216a31e283b1bcf975b1da11c9f9b5bb4 (diff) | |
| download | emacs-ab8bc7178cf211c0af13c61729c4032a641c66d1.tar.gz emacs-ab8bc7178cf211c0af13c61729c4032a641c66d1.tar.bz2 emacs-ab8bc7178cf211c0af13c61729c4032a641c66d1.zip | |
(byte-compile-lambda): Handle progn like let, inside interactive spec.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files 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))) |