Mercurial > emacs

diff src/data.c @ 102718:ec53ed9e6925

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qinteractive_form): New variable. (Finteractive_form): Use it.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 24 Mar 2009 16:35:52 +0000
parents f28542a2c7f7
children e68707cf48a5
line wrap: on
line diff
--- a/src/data.c	Tue Mar 24 16:35:27 2009 +0000
+++ b/src/data.c	Tue Mar 24 16:35:52 2009 +0000
@@ -88,6 +88,8 @@
 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 @@
   fun = cmd;
   while (SYMBOLP (fun))
     {
-      Lisp_Object tmp = Fget (fun, intern ("interactive-form"));
+      Lisp_Object tmp = Fget (fun, Qinteractive_form);
       if (!NILP (tmp))
 	return tmp;
       else
@@ -3152,6 +3154,8 @@
   DEFSYM (Qfont_entity, "font-entity");
   DEFSYM (Qfont_object, "font-object");
 
+  DEFSYM (Qinteractive_form, "interactive-form");
+
   staticpro (&Qinteger);
   staticpro (&Qsymbol);
   staticpro (&Qstring);