Re: bug? the position of scroll-bar

[Masatake YAMATO <jet@gyve.org>]

> > (progn (set-window-scroll-bars (selected-window) 10 'hippopotamus)
> >        (window-scroll-bars (selected-window)))
> > => (10 2 hippopotamus nil)
> > 
> > hippopotamus is accepted. 
> 
> It shouldn't, so your fix is ok (read on)...
> 
> >     set-window-scroll-bars is a built-in function.
> >     (set-window-scroll-bars WINDOW WIDTH &optional VERTICAL-TYPE HORIZONTAL-TYPE)
> > 
> >     Set width and type of scroll bars of window WINDOW.
> >     If window is nil, set scroll bars of the currently selected window.
> >     Second parameter WIDTH specifies the pixel width for the scroll bar;
> >     this is automatically adjusted to a multiple of the frame column width.
> >     Third parameter VERTICAL-TYPE specifies the type of the vertical scroll
> >     bar: left, right, or nil.
> >     ^^^^^^^^^^^^^^^^^^^^^^^^^
> >     A width of nil and type of t means to use the frame's corresponding value.
>                          ^^^^^^^^^
> 
> You need to allow Qt as well:

Thank you. I've validated more strictly.
How about this one?

2003-09-22  Masatake YAMATO  <jet@gyve.org>

	* window.c (Fset_window_scroll_bars): Validate the value of 
	`vertical_type'.

Index: src/window.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/window.c,v
retrieving revision 1.447
diff -u -r1.447 window.c
--- src/window.c	20 Sep 2003 23:38:54 -0000	1.447
+++ src/window.c	22 Sep 2003 09:18:19 -0000
@@ -5873,6 +5873,12 @@
   if (XINT (width) == 0)
     vertical_type = Qnil;
 
+  if (!(EQ (vertical_type, Qnil)
+	|| EQ (vertical_type, Qleft) 
+	|| EQ (vertical_type, Qright)
+	|| (EQ (vertical_type, Qt) && NILP (width))))
+    error ("Invalid type of vertical scroll bar");
+
   if (!EQ (w->scroll_bar_width, width)
       || !EQ (w->vertical_scroll_bar_type, vertical_type))
     {