1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00

(byte-compile-lambda): Fix previous change.

This commit is contained in:
Karl Heuer 1998-06-04 06:11:30 +00:00
parent 3270ae6e9b
commit b9edcafb51

View File

@ -9,7 +9,7 @@
;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.44 $")
(defconst byte-compile-version "$Revision: 2.45 $")
;; This file is part of GNU Emacs.
@ -2040,7 +2040,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(prog1 (car body)
;; Discard the doc string
;; unless it is the last element of the body.
(if (nthcdr 2 body)
(if (cdr body)
(setq body (cdr body))))))
(int (assq 'interactive body)))
(cond (int