/[emacs]/emacs/src/window.c
ViewVC logotype

Diff of /emacs/src/window.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.447 by kfstorm, Sat Sep 20 23:38:54 2003 UTC revision 1.448 by jet, Mon Sep 22 12:55:24 2003 UTC
# Line 5861  Second parameter WIDTH specifies the pix Line 5861  Second parameter WIDTH specifies the pix
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  {  {
# Line 5873  A width of nil and type of t means to us Line 5874  A width of nil and type of t means to us
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      {      {

Legend:
Removed from v.1.447  
changed lines
  Added in v.1.448

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26