Mercurial > hg > xemacs-beta

comparison src/lisp-union.h @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children b8cc9ab3f761
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
98 EMACS_UINT xset_value = (EMACS_UINT) (value); \ 98 EMACS_UINT xset_value = (EMACS_UINT) (value); \
99 (var).ui = xset_value; \ 99 (var).ui = xset_value; \
100 } while (0) 100 } while (0)
101 # define XPNTRVAL(x) ((x).ui) 101 # define XPNTRVAL(x) ((x).ui)
102 102
103 INLINE Lisp_Object make_int (EMACS_INT val); 103 INLINE_HEADER Lisp_Object make_int (EMACS_INT val);
104 INLINE Lisp_Object 104 INLINE_HEADER Lisp_Object
105 make_int (EMACS_INT val) 105 make_int (EMACS_INT val)
106 { 106 {
107 Lisp_Object obj; 107 Lisp_Object obj;
108 XSETINT(obj, val); 108 XSETINT(obj, val);
109 return obj; 109 return obj;
110 } 110 }
111 111
112 INLINE Lisp_Object make_char (Emchar val); 112 INLINE_HEADER Lisp_Object make_char (Emchar val);
113 INLINE Lisp_Object 113 INLINE_HEADER Lisp_Object
114 make_char (Emchar val) 114 make_char (Emchar val)
115 { 115 {
116 Lisp_Object obj; 116 Lisp_Object obj;
117 XSETCHAR(obj, val); 117 XSETCHAR(obj, val);
118 return obj; 118 return obj;