# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1080521287 0
# Node ID 8bcf0c4596307ca9eec64686186c0dd3e160d81f
# Parent  0018770bf0b3fc2a568cc66a74e5b05362bde00f
(interactive-form): Delete.  Now implemented in C.

diff -r 0018770bf0b3 -r 8bcf0c459630 lisp/subr.el
--- a/lisp/subr.el	Sun Mar 28 23:08:29 2004 +0000
+++ b/lisp/subr.el	Mon Mar 29 00:48:07 2004 +0000
@@ -2274,28 +2274,6 @@
       (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.