HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3860280
)
(Fcommandp): Use Qinteractive_form.
author
Chong Yidong
<cyd@stupidchicken.com>
Tue, 24 Mar 2009 16:37:25 +0000
(16:37 +0000)
committer
Chong Yidong
<cyd@stupidchicken.com>
Tue, 24 Mar 2009 16:37:25 +0000
(16:37 +0000)
src/eval.c
patch
|
blob
|
blame
|
history
diff --git
a/src/eval.c
b/src/eval.c
index
a16576c
..
fb1ed27
100644
(file)
--- a/
src/eval.c
+++ b/
src/eval.c
@@
-97,6
+97,7
@@
Lisp_Object Qand_rest, Qand_optional;
Lisp_Object Qdebug_on_error;
Lisp_Object Qdeclare;
Lisp_Object Qdebug;
+extern Lisp_Object Qinteractive_form;
/* This holds either the symbol `run-hooks' or nil.
It is nil at an early stage of startup, and when Emacs
@@
-2084,7
+2085,7
@@
then strings and vectors are not accepted. */)
fun = function;
while (SYMBOLP (fun))
{
- Lisp_Object tmp = Fget (fun,
intern ("interactive-form")
);
+ Lisp_Object tmp = Fget (fun,
Qinteractive_form
);
if (!NILP (tmp))
if_prop = Qt;
fun = Fsymbol_function (fun);