1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00

(x_scroll_bar_clear): Use type test macros.

This commit is contained in:
Karl Heuer 1994-09-27 00:24:27 +00:00
parent fdb4a38c7d
commit 9bc4522e80

View File

@ -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);