bug#13265: 24.2.91; REGRESSION? Warning: misplaced interactive spec

[Glenn Morris]

Leo wrote:

>   Warning: misplaced interactive spec: `(interactive)'

This is a bug in the "yuck" section of the defun macro.

*** lisp/emacs-lisp/byte-run.el 2012-11-19 20:57:36 +0000
--- lisp/emacs-lisp/byte-run.el 2012-12-26 19:32:22 +0000
***************
*** 188,194 ****
                           (memq (car x)  ;C.f. cl-do-proclaim.
                                 '(special inline notinline optimize warn)))
                      (push (list 'declare x)
!                           (if (stringp docstring) (cdr body) body))
                      nil)
                     (t (message "Warning: Unknown defun property `%S' in %S"
                                 (car x) name)))))
--- 188,200 ----
                           (memq (car x)  ;C.f. cl-do-proclaim.
                                 '(special inline notinline optimize warn)))
                      (push (list 'declare x)
!                           (if (stringp docstring)
!                               (if (eq (car-safe (cadr body)) 'interactive)
!                                   (cddr body)
!                                 (cdr body))
!                             (if (eq (car-safe (car body)) 'interactive)
!                                 (cdr body)
!                               body)))
                      nil)
                     (t (message "Warning: Unknown defun property `%S' in %S"
                                 (car x) name)))))