Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2b9aa051
Commit
2b9aa051
authored
Mar 24, 2009
by
Chong Yidong
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fcommandp): Use Qinteractive_form.
parent
3860280a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
1 deletion
+2
-1
src/eval.c
src/eval.c
+2
-1
No files found.
src/eval.c
View file @
2b9aa051
...
...
@@ -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
,
Q
interactive
_
form
);
if
(
!
NILP
(
tmp
))
if_prop
=
Qt
;
fun
=
Fsymbol_function
(
fun
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment