5861 |
this is automatically adjusted to a multiple of the frame column width. |
this is automatically adjusted to a multiple of the frame column width. |
5862 |
Third parameter VERTICAL-TYPE specifies the type of the vertical scroll |
Third parameter VERTICAL-TYPE specifies the type of the vertical scroll |
5863 |
bar: left, right, or nil. |
bar: left, right, or nil. |
5864 |
A width of nil and type of t means to use the frame's corresponding value. */) |
If WIDTH is nil, use the frame's scroll-bar width. |
5865 |
|
If TYPE is t, use the frame's scroll-bar type. */) |
5866 |
(window, width, vertical_type, horizontal_type) |
(window, width, vertical_type, horizontal_type) |
5867 |
Lisp_Object window, width, vertical_type, horizontal_type; |
Lisp_Object window, width, vertical_type, horizontal_type; |
5868 |
{ |
{ |
5874 |
if (XINT (width) == 0) |
if (XINT (width) == 0) |
5875 |
vertical_type = Qnil; |
vertical_type = Qnil; |
5876 |
|
|
5877 |
|
if (!(EQ (vertical_type, Qnil) |
5878 |
|
|| EQ (vertical_type, Qleft) |
5879 |
|
|| EQ (vertical_type, Qright) |
5880 |
|
|| EQ (vertical_type, Qt))) |
5881 |
|
error ("Invalid type of vertical scroll bar"); |
5882 |
|
|
5883 |
if (!EQ (w->scroll_bar_width, width) |
if (!EQ (w->scroll_bar_width, width) |
5884 |
|| !EQ (w->vertical_scroll_bar_type, vertical_type)) |
|| !EQ (w->vertical_scroll_bar_type, vertical_type)) |
5885 |
{ |
{ |