Mercurial > hg > xemacs-beta

comparison src/gui.c @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children 19dcec799385
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
65 } 65 }
66 66
67 /* Massage DATA to find the correct function and argument. Used by 67 /* Massage DATA to find the correct function and argument. Used by
68 popup_selection_callback() and the msw code. */ 68 popup_selection_callback() and the msw code. */
69 void 69 void
70 get_callback (Lisp_Object data, Lisp_Object *fn, Lisp_Object *arg) 70 get_gui_callback (Lisp_Object data, Lisp_Object *fn, Lisp_Object *arg)
71 { 71 {
72 if (SYMBOLP (data) 72 if (SYMBOLP (data)
73 || (COMPILED_FUNCTIONP (data) 73 || (COMPILED_FUNCTIONP (data)
74 && XCOMPILED_FUNCTION (data)->flags.interactivep) 74 && XCOMPILED_FUNCTION (data)->flags.interactivep)
75 || (EQ (XCAR (data), Qlambda) 75 || (EQ (XCAR (data), Qlambda)
105 pgui_item->name = Qnil; 105 pgui_item->name = Qnil;
106 pgui_item->callback = Qnil; 106 pgui_item->callback = Qnil;
107 pgui_item->suffix = Qnil; 107 pgui_item->suffix = Qnil;
108 pgui_item->active = Qt; 108 pgui_item->active = Qt;
109 pgui_item->included = Qt; 109 pgui_item->included = Qt;
110 pgui_item->config = Qunbound; 110 pgui_item->config = Qnil;
111 pgui_item->filter = Qnil; 111 pgui_item->filter = Qnil;
112 pgui_item->style = Qnil; 112 pgui_item->style = Qnil;
113 pgui_item->selected = Qnil; 113 pgui_item->selected = Qnil;
114 pgui_item->keys = Qnil; 114 pgui_item->keys = Qnil;
115 } 115 }