Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3860280a
Commit
3860280a
authored
Mar 24, 2009
by
Chong Yidong
Browse files
(Qinteractive_form): New variable.
(Finteractive_form): Use it.
parent
0a1958d6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
1 deletion
+5
-1
src/data.c
src/data.c
+5
-1
No files found.
src/data.c
View file @
3860280a
...
...
@@ -88,6 +88,8 @@ static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
static Lisp_Object Qsubrp, Qmany, Qunevalled;
Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
Lisp_Object Qinteractive_form;
static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum;
...
...
@@ -765,7 +767,7 @@ Value, if non-nil, is a list \(interactive SPEC). */)
fun = cmd;
while (SYMBOLP (fun))
{
Lisp_Object tmp = Fget (fun,
intern ("
interactive
-
form
")
);
Lisp_Object tmp = Fget (fun,
Q
interactive
_
form);
if (!NILP (tmp))
return tmp;
else
...
...
@@ -3152,6 +3154,8 @@ syms_of_data ()
DEFSYM (Qfont_entity, "font-entity");
DEFSYM (Qfont_object, "font-object");
DEFSYM (Qinteractive_form, "interactive-form");
staticpro (&Qinteger);
staticpro (&Qsymbol);
staticpro (&Qstring);
...
...
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