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

(byte-compile-lambda):

Browse source 
Don't compile the interactive spec if it is a call to `list'.
This commit is contained in:
Richard M. Stallman 1992-10-31 09:27:47 +00:00
parent 259c5af9d8
commit ffc394dd58
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1659,12 +1659,19 @@ If FORM is a lambda or a macro, byte-compile it as a function."
;; Skip (interactive) if it is in front (the most usual location).
(if (eq int (car body))
(setq body (cdr body)))
(cond ((cdr int)
(cond ((consp (cdr int))
(if (cdr (cdr int))
(byte-compile-warn "malformed interactive spec: %s"
(prin1-to-string int)))
(setq int (list 'interactive (byte-compile-top-level
(nth 1 int))))))))
;; If the interactive spec is a call to `list',
;; don't compile it, because `call-interactively'
;; looks at the args of `list'.
(or (eq (car-safe (nth 1 int)) 'list)
(setq int (list 'interactive
(byte-compile-top-level (nth 1 int))))))
((cdr int)
(byte-compile-warn "malformed interactive spec: %s"
(prin1-to-string int))))))
(let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda)))
(if (and (eq 'byte-code (car-safe compiled))
(byte-compile-version-cond