mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 11:20:41 -08:00
Code Issues Projects Releases Wiki Activity

(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.

Browse source 
(Vinstallation_directory): Declared.
This commit is contained in:
Richard M. Stallman 1994-01-20 14:41:49 +00:00
parent 1c4ce111de
commit e6faba7f61
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/lisp.h
View file

@ -604,6 +604,34 @@ typedef unsigned char UCHAR;
#define CHAR_CTL (0x400000)
#define CHAR_META (0x800000)
#ifdef USE_X_TOOLKIT
#ifdef NO_UNION_TYPE
/* Use this for turning a (void *) into a Lisp_Object, as when the
Lisp_Object is passed into a toolkit callback function. */
#define VOID_TO_LISP(larg,varg) \
do { ((larg) = ((Lisp_Object) (varg))); } while (0)
#define CVOID_TO_LISP VOID_TO_LISP
/* Use this for turning a Lisp_Object into a (void *), as when the
Lisp_Object is passed into a toolkit callback function. */
#define LISP_TO_VOID(larg) ((void *) (larg))
#define LISP_TO_CVOID(varg) ((const void *) (larg))
#else /* not NO_UNION_TYPE */
/* Use this for turning a (void *) into a Lisp_Object, as when the
Lisp_Object is passed into a toolkit callback function. */
#define VOID_TO_LISP(larg,varg) \
do { ((larg).v = (void *) (varg)); } while (0)
#define CVOID_TO_LISP(larg,varg) \
do { ((larg).cv = (const void *) (varg)); } while (0)
/* Use this for turning a Lisp_Object into a (void *), as when the
Lisp_Object is passed into a toolkit callback function. */
#define LISP_TO_VOID(larg) ((larg).v)
#define LISP_TO_CVOID(larg) ((larg).cv)
#endif /* not NO_UNION_TYPE */
#endif /* USE_X_TOOLKIT */
/* The glyph datatype, used to represent characters on the display. */
@ -1300,6 +1328,7 @@ extern Lisp_Object Frubber_band_rectangle ();
/* defined in emacs.c */
extern Lisp_Object decode_env_path ();
extern Lisp_Object Vinvocation_name, Vinvocation_directory;
extern Lisp_Object Vinstallation_directory;
void shut_down_emacs ( /* int signal, int no_x, Lisp_Object stuff */ );
/* Nonzero means don't do interactive redisplay and don't change tty modes */
extern int noninteractive;