diff src/data.c @ 82103:fac8f5421213

(Finteractive_form): Use a `interactive-form' property if present, analogous to the function-documentation property.

--- a/src/data.c	Wed Jul 25 04:32:23 2007 +0000
+++ b/src/data.c	Wed Jul 25 06:24:58 2007 +0000
@@ -751,8 +751,14 @@
      Lisp_Object cmd;
 {
   Lisp_Object fun = indirect_function (cmd);
-
-  if (SUBRP (fun))
+  Lisp_Object tmp;
+
+  if (SYMBOLP (cmd)
+      /* Use an `interactive-form' property if present, analogous to the
+	 function-documentation property. */
+      && (tmp = Fget (cmd, intern ("interactive-form")), !NILP (tmp)))
+    return tmp;
+  else if (SUBRP (fun))
     {
       if (XSUBR (fun)->prompt)
 	return list2 (Qinteractive, build_string (XSUBR (fun)->prompt));