X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/aaf34461ff5804e5cebe163b31e535da72e81d87..91f4aeef89425b6b4d59e2a3d29d4201852eaff2:/src/data.c

diff --git a/src/data.c b/src/data.c
index 1f82f92928..dfc0c35705 100644
--- a/src/data.c
+++ b/src/data.c
@@ -770,8 +770,11 @@ Value, if non-nil, is a list \(interactive SPEC).  */)
 
   if (SUBRP (fun))
     {
-      if (XSUBR (fun)->prompt)
-	return list2 (Qinteractive, build_string (XSUBR (fun)->prompt));
+      char *spec = XSUBR (fun)->intspec;
+      if (spec)
+	return list2 (Qinteractive,
+		      (*spec != '(') ? build_string (spec) :
+		      Fcar (Fread_from_string (build_string (spec), Qnil, Qnil)));
     }
   else if (COMPILEDP (fun))
     {