From: Grégoire Jadi <gregoire.jadi@gmail.com>
Date: Fri, 28 Jun 2013 19:18:45 +0000 (+0200)
Subject: * src/xwidget.h (XXWIDGET, XXWIDGET_VIEW): Use XUNTAG instead of XPNTR
X-Git-Tag: emacs-25.0.90~2894^2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b10003d09a7b2de49b133fb5992a59d9e915645;p=emacs.git

* src/xwidget.h (XXWIDGET, XXWIDGET_VIEW): Use XUNTAG instead of XPNTR
(copied from XBUFFER and friends).
---

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
 {