From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 29 Mar 2004 00:48:07 +0000 (+0000)
Subject: (interactive-form): Delete.  Now implemented in C.
X-Git-Tag: ttn-vms-21-2-B4~7044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a21aa1650a4a5ebd8ac6459328a810c837aa642e;p=emacs.git

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

diff --git a/lisp/subr.el b/lisp/subr.el
index 2c39a8447cf..74809c678eb 100644
--- 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.