Mercurial > emacs
comparison src/data.c @ 82103:fac8f5421213
(Finteractive_form): Use a `interactive-form' property if
present, analogous to the function-documentation property.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 25 Jul 2007 06:24:58 +0000 |
| parents | 38a46faaf8c1 |
| children | dd8905ab6eaa |
comparison
equal
deleted
inserted
replaced
| 82102:5b55db78e6d8 | 82103:fac8f5421213 |
|---|---|
| 749 Value, if non-nil, is a list \(interactive SPEC). */) | 749 Value, if non-nil, is a list \(interactive SPEC). */) |
| 750 (cmd) | 750 (cmd) |
| 751 Lisp_Object cmd; | 751 Lisp_Object cmd; |
| 752 { | 752 { |
| 753 Lisp_Object fun = indirect_function (cmd); | 753 Lisp_Object fun = indirect_function (cmd); |
| 754 | 754 Lisp_Object tmp; |
| 755 if (SUBRP (fun)) | 755 |
| 756 if (SYMBOLP (cmd) | |
| 757 /* Use an `interactive-form' property if present, analogous to the | |
| 758 function-documentation property. */ | |
| 759 && (tmp = Fget (cmd, intern ("interactive-form")), !NILP (tmp))) | |
| 760 return tmp; | |
| 761 else if (SUBRP (fun)) | |
| 756 { | 762 { |
| 757 if (XSUBR (fun)->prompt) | 763 if (XSUBR (fun)->prompt) |
| 758 return list2 (Qinteractive, build_string (XSUBR (fun)->prompt)); | 764 return list2 (Qinteractive, build_string (XSUBR (fun)->prompt)); |
| 759 } | 765 } |
| 760 else if (COMPILEDP (fun)) | 766 else if (COMPILEDP (fun)) |