Mercurial > hg > xemacs-beta
comparison src/scrollbar.c @ 227:0e522484dd2a r20-5b12
Import from CVS: tag r20-5b12
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:12:37 +0200 |
parents | 12579d965149 |
children | c5d627a313b1 |
comparison
equal
deleted
inserted
replaced
226:eea38c7ad7b4 | 227:0e522484dd2a |
---|---|
856 hscroll = max_len - wcw; | 856 hscroll = max_len - wcw; |
857 else | 857 else |
858 hscroll = XINT (value); | 858 hscroll = XINT (value); |
859 | 859 |
860 /* Can't allow this out of set-window-hscroll's acceptable range. */ | 860 /* Can't allow this out of set-window-hscroll's acceptable range. */ |
861 /* #### What hell on the earth this code limits scroll size to the | |
862 machine-dependant SHORT size? -- kkm */ | |
861 if (hscroll < 0) | 863 if (hscroll < 0) |
862 hscroll = 0; | 864 hscroll = 0; |
863 else if (hscroll >= (1 << (SHORTBITS - 1))) | 865 else if (hscroll >= (1 << (SHORTBITS - 1)) - 1) |
864 hscroll = (1 << (SHORTBITS - 1)) - 1; | 866 hscroll = (1 << (SHORTBITS - 1)) - 1; |
865 | 867 |
866 if (hscroll != w->hscroll) | 868 if (hscroll != w->hscroll) |
867 Fset_window_hscroll (window, make_int (hscroll)); | 869 Fset_window_hscroll (window, make_int (hscroll)); |
868 | 870 |