Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
102717:a00bab48aee0 102718:ec53ed9e6925
85 Lisp_Object Qprocess; 85 Lisp_Object Qprocess;
86 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector; 86 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
87 static Lisp_Object Qchar_table, Qbool_vector, Qhash_table; 87 static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
88 static Lisp_Object Qsubrp, Qmany, Qunevalled; 88 static Lisp_Object Qsubrp, Qmany, Qunevalled;
89 Lisp_Object Qfont_spec, Qfont_entity, Qfont_object; 89 Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
90
91 Lisp_Object Qinteractive_form;
90 92
91 static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object)); 93 static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
92 94
93 Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum; 95 Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum;
94 96
763 /* Use an `interactive-form' property if present, analogous to the 765 /* Use an `interactive-form' property if present, analogous to the
764 function-documentation property. */ 766 function-documentation property. */
765 fun = cmd; 767 fun = cmd;
766 while (SYMBOLP (fun)) 768 while (SYMBOLP (fun))
767 { 769 {
768 Lisp_Object tmp = Fget (fun, intern ("interactive-form")); 770 Lisp_Object tmp = Fget (fun, Qinteractive_form);
769 if (!NILP (tmp)) 771 if (!NILP (tmp))
770 return tmp; 772 return tmp;
771 else 773 else
772 fun = Fsymbol_function (fun); 774 fun = Fsymbol_function (fun);
773 } 775 }
3149 Qhash_table = intern ("hash-table"); 3151 Qhash_table = intern ("hash-table");
3150 3152
3151 DEFSYM (Qfont_spec, "font-spec"); 3153 DEFSYM (Qfont_spec, "font-spec");
3152 DEFSYM (Qfont_entity, "font-entity"); 3154 DEFSYM (Qfont_entity, "font-entity");
3153 DEFSYM (Qfont_object, "font-object"); 3155 DEFSYM (Qfont_object, "font-object");
3156
3157 DEFSYM (Qinteractive_form, "interactive-form");
3154 3158
3155 staticpro (&Qinteger); 3159 staticpro (&Qinteger);
3156 staticpro (&Qsymbol); 3160 staticpro (&Qsymbol);
3157 staticpro (&Qstring); 3161 staticpro (&Qstring);
3158 staticpro (&Qcons); 3162 staticpro (&Qcons);