1538 |
(fboundp object) |
(fboundp object) |
1539 |
(setq object (indirect-function object)) |
(setq object (indirect-function object)) |
1540 |
(eq (car-safe object) 'autoload) |
(eq (car-safe object) 'autoload) |
1541 |
(not (eq (car-safe |
(not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object))))))) |
|
(cdr-safe (cdr-safe (cdr-safe (cdr-safe object))))) |
|
|
'keymap))) |
|
1542 |
(subrp object) (byte-code-function-p object) |
(subrp object) (byte-code-function-p object) |
1543 |
(eq (car-safe object) 'lambda) |
(eq (car-safe object) 'lambda))) |
|
(eq (car-safe object) 'macro))) |
|
1544 |
|
|
1545 |
(defun interactive-form (function) |
(defun interactive-form (function) |
1546 |
"Return the interactive form of FUNCTION. |
"Return the interactive form of FUNCTION. |