Mercurial > emacs
view lwlib/lwlib-utils.h @ 16141:9cbc74969e46
Add #n=object, #n#, and #:symbol constructs to reader.
(readevalloop, read, Fread_from_string): Empty list of read objects before
read0 call.
(read1): New variable `uninterned_symbol', which controls how to make
symbols. Support #:, #n=object and #n#.
(make_symbol): New function, used in read1 to make uninterned symbols
(Fintern): Set `obarray' field of interned symbols.
(init_obarray): Explicit set `obarray' field of symbol `nil'.
(syms_of_lread): staticpro read_objects, the list of read objects.
author | Erik Naggum <erik@naggum.no> |
---|---|
date | Mon, 09 Sep 1996 02:30:05 +0000 |
parents | 118a6ad56ae0 |
children | 6ed38ee607e9 |
line wrap: on
line source
#ifndef _LWLIB_UTILS_H_ #define _LWLIB_UTILS_H_ void XtNoClearRefreshWidget (/* Widget */); typedef void (*XtApplyToWidgetsProc) (/* Widget, XtPointer */); typedef void* (*XtApplyUntilToWidgetsProc) (/* Widget, XtPointer */); void XtApplyToWidgets (/* Widget, XtApplyToWidgetsProc, XtPointer */); void *XtApplyUntilToWidgets (/* Widget, XtApplyUntilToWidgetsProc, XtPointer */); Widget *XtCompositeChildren (/* Widget, unsigned int * */); /* returns True is the widget is being destroyed, False otherwise */ Boolean XtWidgetBeingDestroyedP (/* Widget widget */); void XtSafelyDestroyWidget (/* Widget */); #endif /* _LWLIB_UTILS_H_ */