diff options
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index eb476c65753..67f9b83887d 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1452,7 +1452,7 @@ configuration." | |||
| 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) |