Commit 8a6d230a authored by Michaël Cadilhac's avatar Michaël Cadilhac
Browse files

(Finteractive_form): If the interactive specification starts with a `(',

use it as a Lisp form.
parent 04724b69
......@@ -5,6 +5,9 @@
 
* eval.c (Fcommandp): Change `->prompt' to `->intspec'.
 
* data.c (Finteractive_form): If the interactive specification starts
with a `(', use it as a Lisp form.
* callint.c (Fcall_interactively): Comment fixes.
 
2007-09-10 Stefan Monnier <monnier@iro.umontreal.ca>
......@@ -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))
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment