Mercurial > hg > xemacs-beta

comparison src/lisp-disunion.h @ 452:3d3049ae1304 r21-2-41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-41
author cvs
date Mon, 13 Aug 2007 11:40:21 +0200
parents abe6d1db359e
children c33ae14dd6d0
comparison
equal deleted inserted replaced
451:8ad70c5cd5d7 452:3d3049ae1304
101 /* Convert between a (void *) and a Lisp_Object, as when the 101 /* Convert between a (void *) and a Lisp_Object, as when the
102 Lisp_Object is passed to a toolkit callback function */ 102 Lisp_Object is passed to a toolkit callback function */
103 #define VOID_TO_LISP(larg,varg) ((void) ((larg) = ((Lisp_Object) (varg)))) 103 #define VOID_TO_LISP(larg,varg) ((void) ((larg) = ((Lisp_Object) (varg))))
104 #define CVOID_TO_LISP VOID_TO_LISP 104 #define CVOID_TO_LISP VOID_TO_LISP
105 #define LISP_TO_VOID(larg) ((void *) (larg)) 105 #define LISP_TO_VOID(larg) ((void *) (larg))
106 #define LISP_TO_CVOID(varg) ((const void *) (larg)) 106 #define LISP_TO_CVOID(larg) ((const void *) (larg))
107 107
108 /* Convert a Lisp_Object into something that can't be used as an 108 /* Convert a Lisp_Object into something that can't be used as an
109 lvalue. Useful for type-checking. */ 109 lvalue. Useful for type-checking. */
110 #define NON_LVALUE(larg) ((larg) + 0) 110 #define NON_LVALUE(larg) ((larg) + 0)