Mercurial > hg > xemacs-beta
view lwlib/lwlib-Xm.h @ 5075:868a9ffcc37b
Normally return a compiled function if one argument, #'constantly.
2010-02-24 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (constantly):
Normally return a compiled function from #'constantly if we are
handed a single argument. Shouldn't actually matter, the overhead
for returning a single constant in a lambda form vs. in a compiled
function is minuscule, but using compiled functions as much as
possible is good style in XEmacs, our interpreter is not stellar
(nor indeed should it need to be).
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 24 Feb 2010 17:17:13 +0000 |
parents | 98528da0b7fc |
children | ade4c7e2c6cb |
line wrap: on
line source
#ifndef INCLUDED_lwlib_Xm_h_ #define INCLUDED_lwlib_Xm_h_ #include "lwlib-internal.h" extern const widget_creation_entry xm_creation_table []; Widget xm_create_dialog (widget_instance* instance); Widget xm_create_label (Widget parent, widget_value* val); Boolean lw_motif_widget_p (Widget widget); void xm_update_one_widget (widget_instance* instance, Widget widget, widget_value* val, Boolean deep_p); void xm_update_one_value (widget_instance* instance, Widget widget, widget_value* val); void xm_destroy_instance (widget_instance* instance); void xm_set_keyboard_focus (Widget parent, Widget w); void xm_popup_menu (Widget widget, XEvent *event); void xm_pop_instance (widget_instance* instance, Boolean up); extern Widget first_child (Widget); /* garbage */ #endif /* INCLUDED_lwlib_Xm_h_ */