remove documentation-string reading hack

[bpt/emacs.git] / src / frame.h

diff --git a/src/frame.h b/src/frame.h
index 2da9fff..214f6d7 100644 (file)
--- a/src/frame.h
+++ b/src/frame.h
@@ -597,7 +597,7 @@ default_pixels_per_inch_y (void)
 #define FRAME_IMAGE_CACHE(F) ((F)->terminal->image_cache)
 
 #define XFRAME(p) \
-  (eassert (FRAMEP (p)), (struct frame *) XUNTAG (p, Lisp_Vectorlike))
+  (eassert (FRAMEP (p)), (struct frame *) SCM_SMOB_DATA (p))
 #define XSETFRAME(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_FRAME))
 
 /* Given a window, return its frame as a Lisp_Object.  */