Commit 2b9aa051 authored by Chong Yidong's avatar Chong Yidong
Browse files

(Fcommandp): Use Qinteractive_form.

parent 3860280a
...@@ -97,6 +97,7 @@ Lisp_Object Qand_rest, Qand_optional; ...@@ -97,6 +97,7 @@ Lisp_Object Qand_rest, Qand_optional;
Lisp_Object Qdebug_on_error; Lisp_Object Qdebug_on_error;
Lisp_Object Qdeclare; Lisp_Object Qdeclare;
Lisp_Object Qdebug; Lisp_Object Qdebug;
extern Lisp_Object Qinteractive_form;
/* This holds either the symbol `run-hooks' or nil. /* This holds either the symbol `run-hooks' or nil.
It is nil at an early stage of startup, and when Emacs It is nil at an early stage of startup, and when Emacs
...@@ -2084,7 +2085,7 @@ then strings and vectors are not accepted. */) ...@@ -2084,7 +2085,7 @@ then strings and vectors are not accepted. */)
fun = function; fun = function;
while (SYMBOLP (fun)) while (SYMBOLP (fun))
{ {
Lisp_Object tmp = Fget (fun, intern ("interactive-form")); Lisp_Object tmp = Fget (fun, Qinteractive_form);
if (!NILP (tmp)) if (!NILP (tmp))
if_prop = Qt; if_prop = Qt;
fun = Fsymbol_function (fun); fun = Fsymbol_function (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