(interactive-form): Delete. Now implemented in C.

diff --git a/lisp/subr.el b/lisp/subr.el
index 2c39a8447cf4090ee1b4b601d53122a4e135fb10..74809c678eb5c14989b371ab779845c5c374611e 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2274,28 +2274,6 @@ macros."
       (subrp object) (byte-code-function-p object)
       (eq (car-safe object) 'lambda)))
 
-(defun interactive-form (function)
-  "Return the interactive form of FUNCTION.
-If function is a command (see `commandp'), value is a list of the form
-\(interactive SPEC).  If function is not a command, return nil."
-  (setq function (indirect-function function))
-  (when (commandp function)
-    (cond ((byte-code-function-p function)
-          (when (> (length function) 5)
-            (let ((spec (aref function 5)))
-              (if spec
-                  (list 'interactive spec)
-                (list 'interactive)))))
-         ((subrp function)
-          (subr-interactive-form function))
-         ((eq (car-safe function) 'lambda)
-          (setq function (cddr function))
-          (when (stringp (car function))
-            (setq function (cdr function)))
-          (let ((form (car function)))
-            (when (eq (car-safe form) 'interactive)
-              (copy-sequence form)))))))
-
 (defun assq-delete-all (key alist)
   "Delete from ALIST all elements whose car is KEY.
 Return the modified alist.