Mercurial > emacs
comparison src/window.c @ 13126:3b3c339f71c0
(Fset_window_hscroll): Don't reject args > SHORTBITS.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 05 Oct 1995 23:44:20 +0000 |
parents | 960db92441d8 |
children | 1a4cee562d33 |
comparison
equal
deleted
inserted
replaced
13125:731ef06c5677 | 13126:3b3c339f71c0 |
---|---|
305 { | 305 { |
306 register struct window *w; | 306 register struct window *w; |
307 | 307 |
308 CHECK_NUMBER (ncol, 1); | 308 CHECK_NUMBER (ncol, 1); |
309 if (XINT (ncol) < 0) XSETFASTINT (ncol, 0); | 309 if (XINT (ncol) < 0) XSETFASTINT (ncol, 0); |
310 if (XFASTINT (ncol) >= (1 << (SHORTBITS - 1))) | |
311 args_out_of_range (ncol, Qnil); | |
312 w = decode_window (window); | 310 w = decode_window (window); |
313 if (XINT (w->hscroll) != XINT (ncol)) | 311 if (XINT (w->hscroll) != XINT (ncol)) |
314 XBUFFER (w->buffer)->clip_changed = 1; /* Prevent redisplay shortcuts */ | 312 XBUFFER (w->buffer)->clip_changed = 1; /* Prevent redisplay shortcuts */ |
315 w->hscroll = ncol; | 313 w->hscroll = ncol; |
316 return ncol; | 314 return ncol; |