Re: bug? the position of scroll-bar

[Masatake YAMATO <jet@gyve.org>]

> > After evaluating (scroll-bar-mode) twice, 
> > both (nth 2 (window-scroll-bars)) and (frame-parameter nil 'vertical-scroll-bars)
> > return t. So I cannot know the position of scroll-bar(left or right). I think
> > this is a bug.
> 
> A short-coming at least :-)   A value of t means to use the system default
> setting.
> 
> In any case, I have installed a fix that should help you.

Thank you. I've tested your change and I'm almost satisfied with it.
But I have still one question.

(progn (set-window-scroll-bars (selected-window) 10 'hippopotamus)
       (window-scroll-bars (selected-window)))
=> (10 2 hippopotamus nil)

hippopotamus is accepted. But M-x set-window-scroll-bars shows:


    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.


Should set-window-scroll-bars return an error if hippopotamus is specified?

I've tried to add following code 

  if (!(EQ (vertical_type, Qnil)
	|| EQ (vertical_type, Qleft) 
	|| EQ (vertical_type, Qright)))
    error ("Invalid type of vertical scroll bar");

to DEFUN ("set-window-scroll-bars", Fset_window_scroll_bars, Sset_window_scroll_bars,..
but this addition causes segmentation fault during make command running.

Masatake YAMATO