[Emacs-diffs] Changes to emacs/src/data.c,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/07/25 06:24:58

Index: src/data.c
===================================================================
RCS file: /sources/emacs/emacs/src/data.c,v
retrieving revision 1.273
retrieving revision 1.274
diff -u -b -r1.273 -r1.274
--- src/data.c  24 Jul 2007 01:21:32 -0000      1.273
+++ src/data.c  25 Jul 2007 06:24:57 -0000      1.274
@@ -751,8 +751,14 @@
      Lisp_Object cmd;
 {
   Lisp_Object fun = indirect_function (cmd);
+  Lisp_Object tmp;
 
-  if (SUBRP (fun))
+  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));