X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Flisp-union.h;h=e85366832efa110ce444a4bb540b5c72f25a7dbb;hp=70ef72c264d4dedd2025399dc6765bd948f83b49;hb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;hpb=032d062ebcb2344e6245cea4214bc09835da97ee

diff --git a/src/lisp-union.h b/src/lisp-union.h
index 70ef72c..e853668 100644
--- a/src/lisp-union.h
+++ b/src/lisp-union.h
@@ -94,7 +94,7 @@ Lisp_Object;
   xset_var->gu.type = Lisp_Type_Char;	\
   xset_var->gu.val = xset_value;	\
 } while (0)
-# define XSETOBJ(var, vartype, value) do {	\
+# define XSETOBJ(var, value) do {		\
   EMACS_UINT xset_value = (EMACS_UINT) (value);	\
   (var).ui = xset_value;			\
 } while (0)
@@ -105,7 +105,7 @@ INLINE_HEADER Lisp_Object
 make_int (EMACS_INT val)
 {
   Lisp_Object obj;
-  XSETINT(obj, val);
+  XSETINT (obj, val);
   return obj;
 }
 
@@ -114,7 +114,16 @@ INLINE_HEADER Lisp_Object
 make_char (Emchar val)
 {
   Lisp_Object obj;
-  XSETCHAR(obj, val);
+  XSETCHAR (obj, val);
+  return obj;
+}
+
+INLINE_HEADER Lisp_Object wrap_object (void *ptr);
+INLINE_HEADER Lisp_Object
+wrap_object (void *ptr)
+{
+  Lisp_Object obj;
+  XSETOBJ (obj, ptr);
   return obj;
 }