From 4b10003d09a7b2de49b133fb5992a59d9e915645 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gr=C3=A9goire=20Jadi?= Date: Fri, 28 Jun 2013 21:18:45 +0200 Subject: [PATCH] * src/xwidget.h (XXWIDGET, XXWIDGET_VIEW): Use XUNTAG instead of XPNTR (copied from XBUFFER and friends). --- src/xwidget.h | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/xwidget.h b/src/xwidget.h index eb5bc60c788..81a5deacca3 100644 --- a/src/xwidget.h +++ b/src/xwidget.h @@ -75,11 +75,13 @@ struct xwidget_view { /* Test for xwidget pseudovector*/ #define XXWIDGETP(x) PSEUDOVECTORP (x, PVEC_XWIDGET) -#define XXWIDGET(a) (eassert (XXWIDGETP(a)),(struct xwidget *) XPNTR(a)) +#define XXWIDGET(a) (eassert (XXWIDGETP(a)), \ + (struct xwidget *) XUNTAG(a, Lisp_Vectorlike)) /* Test for xwidget_view pseudovector */ #define XXWIDGET_VIEW_P(x) PSEUDOVECTORP (x, PVEC_XWIDGET_VIEW) -#define XXWIDGET_VIEW(a) (eassert (XXWIDGET_VIEW_P(a)),(struct xwidget_view *) XPNTR(a)) +#define XXWIDGET_VIEW(a) (eassert (XXWIDGET_VIEW_P(a)), \ + (struct xwidget_view *) XUNTAG(a, Lisp_Vectorlike)) struct xwidget_type { -- 2.39.2