Mercurial > emacs
comparison lisp/subr.el @ 37055:4cb750b910d1
Fix typo.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 29 Mar 2001 14:08:58 +0000 |
parents | dec182bcbaa4 |
children | 838adca2d2fd |
comparison
equal
deleted
inserted
replaced
37054:dec182bcbaa4 | 37055:4cb750b910d1 |
---|---|
1450 (and (symbolp object) (fboundp object)))) | 1450 (and (symbolp object) (fboundp object)))) |
1451 | 1451 |
1452 (defun interactive-form (function) | 1452 (defun interactive-form (function) |
1453 "Return the interactive form of FUNCTION. | 1453 "Return the interactive form of FUNCTION. |
1454 If function is a command (see `commandp'), value is a list of the form | 1454 If function is a command (see `commandp'), value is a list of the form |
1455 \(interactive SPEC). If function is not a command,return nil." | 1455 \(interactive SPEC). If function is not a command, return nil." |
1456 (setq function (indirect-function function)) | 1456 (setq function (indirect-function function)) |
1457 (when (commandp function) | 1457 (when (commandp function) |
1458 (cond ((byte-code-function-p function) | 1458 (cond ((byte-code-function-p function) |
1459 (when (> (length function) 5) | 1459 (when (> (length function) 5) |
1460 (let ((spec (aref function 5))) | 1460 (let ((spec (aref function 5))) |