Mercurial > emacs

comparison src/window.c @ 13126:3b3c339f71c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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;