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))) |