Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Masatake YAMATO 2003-09-22 12:55:25 +00:00
parent b8313039df
commit 2f71b5eae8
2 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
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.

9
src/window.c
View file

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