From: Karl Heuer Date: Wed, 16 Nov 1994 01:31:04 +0000 (+0000) Subject: (XSCROLL_BAR): Extract from Lisp_Vector, not generic pointer. X-Git-Tag: emacs-19.34~5894 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35e5240a6a8ab67f14484743075878ac4ec74341;p=emacs.git (XSCROLL_BAR): Extract from Lisp_Vector, not generic pointer. --- diff --git a/src/xterm.h b/src/xterm.h index 32dab48cd1b..10d376f4fd1 100644 --- a/src/xterm.h +++ b/src/xterm.h @@ -527,12 +527,13 @@ struct scroll_bar { }; /* The number of elements a vector holding a struct scroll_bar needs. */ -#define SCROLL_BAR_VEC_SIZE \ - ((sizeof (struct scroll_bar) - sizeof (EMACS_INT) - sizeof (struct Lisp_Vector *)) \ +#define SCROLL_BAR_VEC_SIZE \ + ((sizeof (struct scroll_bar) \ + - sizeof (EMACS_INT) - sizeof (struct Lisp_Vector *)) \ / sizeof (Lisp_Object)) /* Turning a lisp vector value into a pointer to a struct scroll_bar. */ -#define XSCROLL_BAR(vec) ((struct scroll_bar *) XPNTR (vec)) +#define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec)) /* Building a 32-bit C integer from two 16-bit lisp integers. */