Commit 2f71b5ea authored by Masatake YAMATO's avatar Masatake YAMATO
Browse files

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

parent b8313039
2003-09-22 Masatake YAMATO <jet@gyve.org>
* window.c (Fset_window_scroll_bars): Validate the value of
`vertical_type'.
2003-09-21 Kim F. Storm <storm@cua.dk>
* frame.c (Vdefault_frame_scroll_bars): New variable.
......
......@@ -5861,7 +5861,8 @@ 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. */)
If WIDTH is nil, use the frame's scroll-bar width.
If TYPE is t, use the frame's scroll-bar type. */)
(window, width, vertical_type, horizontal_type)
Lisp_Object window, width, vertical_type, horizontal_type;
{
......@@ -5873,6 +5874,12 @@ A width of nil and type of t means to use the frame's corresponding value. */)
if (XINT (width) == 0)
vertical_type = Qnil;
if (!(EQ (vertical_type, Qnil)
|| EQ (vertical_type, Qleft)
|| EQ (vertical_type, Qright)
|| EQ (vertical_type, Qt)))
error ("Invalid type of vertical scroll bar");
if (!EQ (w->scroll_bar_width, width)
|| !EQ (w->vertical_scroll_bar_type, vertical_type))
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment