procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-compile-lambda): Handle progn like let, inside interactive spec.

Browse source
This commit is contained in:
Richard M. Stallman 2002-11-06 05:07:04 +00:00
parent 746c30e216
commit ab8bc7178c
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/bytecomp.el
View file

@ -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)))