From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 00:24:27 +0000 (+0000)
Subject: (x_scroll_bar_clear): Use type test macros.
X-Git-Tag: emacs-19.34~6753
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/9bc4522e80efc6bd5c24d71a0d62c43cef2e1cff

(x_scroll_bar_clear): Use type test macros.
---

diff --git a/src/xterm.c b/src/xterm.c
index 34b07de3c7..6f12863275 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -2978,8 +2978,7 @@ x_scroll_bar_clear (f)
 {
   Lisp_Object bar;
 
-  for (bar = FRAME_SCROLL_BARS (f);
-       XTYPE (bar) == Lisp_Vector;
+  for (bar = FRAME_SCROLL_BARS (f); VECTORP (bar);
        bar = XSCROLL_BAR (bar)->next)
     XClearArea (x_current_display, SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)),
 		0, 0, 0, 0, True);