# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781276452 0
# Node ID 9f9984bed1b3aa2b89100929a214cfcfe93f1003
# Parent  781ada39b15c6a5773be55c2f523a58997c21389
(XSETFRAME): Set object type as well as value.

diff -r 781ada39b15c -r 9f9984bed1b3 src/frame.h
--- a/src/frame.h	Tue Oct 04 13:12:44 1994 +0000
+++ b/src/frame.h	Tue Oct 04 13:14:12 1994 +0000
@@ -254,7 +254,7 @@
 typedef struct frame *FRAME_PTR;
 
 #define XFRAME(p) ((struct frame *) XPNTR (p))
-#define XSETFRAME(p, v) ((struct frame *) XSETPNTR (p, v))
+#define XSETFRAME(p, v) XSET (p, Lisp_Frame, v)
 
 #define WINDOW_FRAME(w) (w)->frame