Mercurial > hg > xemacs-beta
annotate lwlib/lwlib-utils.h @ 5367:8b70d37ab80e
Use Common Lisp-derived builtins in a few more places in core Lisp.
2011-03-08 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el:
* cl-macs.el (loop):
* cl-macs.el (cl-expand-do-loop):
* cl-macs.el (shiftf):
* cl-macs.el (rotatef):
* cl-macs.el (assert):
* cl-macs.el (cl-defsubst-expand):
* etags.el (buffer-tag-table-list):
* frame.el:
* frame.el (frame-notice-user-settings):
* frame.el (minibuffer-frame-list):
* frame.el (get-frame-for-buffer-noselect):
Use Common Lisp-derived builtins in a few more places, none of
them performance-critical, but the style is better.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 08 Mar 2011 23:57:21 +0000 |
parents | 8de8e3f6228a |
children | ade4c7e2c6cb |
rev | line source |
---|---|
440 | 1 #ifndef INCLUDED_lwlib_utils_h_ |
2 #define INCLUDED_lwlib_utils_h_ | |
428 | 3 |
4 void destroy_all_children (Widget widget); | |
5 void XtNoClearRefreshWidget (Widget); | |
6 | |
7 typedef void (*XtApplyToWidgetsProc) (Widget, XtPointer); | |
8 typedef void* (*XtApplyUntilToWidgetsProc) (Widget, XtPointer); | |
9 | |
10 void XtApplyToWidgets (Widget, XtApplyToWidgetsProc, XtPointer); | |
11 void *XtApplyUntilToWidgets (Widget, XtApplyUntilToWidgetsProc, XtPointer); | |
12 | |
13 Widget *XtCompositeChildren (Widget, unsigned int *); | |
14 | |
15 /* returns True is the widget is being destroyed, False otherwise */ | |
16 Boolean | |
17 XtWidgetBeingDestroyedP (Widget widget); | |
18 | |
19 void XtSafelyDestroyWidget (Widget); | |
20 | |
21 #ifdef USE_DEBUG_MALLOC | |
22 #include <dmalloc.h> | |
23 #endif | |
440 | 24 |
25 #endif /* INCLUDED_lwlib_utils_h_ */ |