From a21aa1650a4a5ebd8ac6459328a810c837aa642e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 29 Mar 2004 00:48:07 +0000 Subject: [PATCH] (interactive-form): Delete. Now implemented in C. --- lisp/subr.el | 22 ---------------------- 1 file changed, 22 deletions(-) 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. -- 2.39.5