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:
parent
3270ae6e9b
commit
b9edcafb51
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user