From 2f71b5eae86e4f82e77918c6d5dcebb07ccf1496 Mon Sep 17 00:00:00 2001 From: Masatake YAMATO Date: Mon, 22 Sep 2003 12:55:25 +0000 Subject: [PATCH] (Fset_window_scroll_bars): Validate the value of `vertical_type'. --- src/ChangeLog | 5 +++++ src/window.c | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 927c9941cc0..e31e9fccc58 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2003-09-22 Masatake YAMATO + + * window.c (Fset_window_scroll_bars): Validate the value of + `vertical_type'. + 2003-09-21 Kim F. Storm * frame.c (Vdefault_frame_scroll_bars): New variable. diff --git a/src/window.c b/src/window.c index ed796fb48cc..b61db3ffbb0 100644 --- a/src/window.c +++ b/src/window.c @@ -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)) { -- 2.11.4.GIT