Mercurial > hg > xemacs-beta

comparison src/window.c @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 8efd647ea9ca
children c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
1364 (window)) 1364 (window))
1365 { 1365 {
1366 return make_int (decode_window (window)->hscroll); 1366 return make_int (decode_window (window)->hscroll);
1367 } 1367 }
1368 1368
1369 #ifdef MODELINE_IS_SCROLLABLE
1369 DEFUN ("modeline-hscroll", Fmodeline_hscroll, 0, 1, 0, /* 1370 DEFUN ("modeline-hscroll", Fmodeline_hscroll, 0, 1, 0, /*
1370 Return the number of columns by which WINDOW's modeline is scrolled from 1371 Return the number of columns by which WINDOW's modeline is scrolled from
1371 left margin. If the window has no modeline, return nil. 1372 left margin. If the window has no modeline, return nil.
1372 */ 1373 */
1373 (window)) 1374 (window))
1375 struct window *w; 1376 struct window *w;
1376 1377
1377 w = decode_window (window); 1378 w = decode_window (window);
1378 return (WINDOW_HAS_MODELINE_P (w)) ? make_int (w->modeline_hscroll) : Qnil; 1379 return (WINDOW_HAS_MODELINE_P (w)) ? make_int (w->modeline_hscroll) : Qnil;
1379 } 1380 }
1381 #endif
1380 1382
1381 DEFUN ("set-window-hscroll", Fset_window_hscroll, 2, 2, 0, /* 1383 DEFUN ("set-window-hscroll", Fset_window_hscroll, 2, 2, 0, /*
1382 Set number of columns WINDOW is scrolled from left margin to NCOL. 1384 Set number of columns WINDOW is scrolled from left margin to NCOL.
1383 NCOL should be zero or positive. 1385 NCOL should be zero or positive.
1384 */ 1386 */
1395 MARK_CLIP_CHANGED; /* FSF marks differently but we aren't FSF. */ 1397 MARK_CLIP_CHANGED; /* FSF marks differently but we aren't FSF. */
1396 w->hscroll = ncols; 1398 w->hscroll = ncols;
1397 return ncol; 1399 return ncol;
1398 } 1400 }
1399 1401
1402 #ifdef MODELINE_IS_SCROLLABLE
1400 DEFUN ("set-modeline-hscroll", Fset_modeline_hscroll, 2, 2, 0, /* 1403 DEFUN ("set-modeline-hscroll", Fset_modeline_hscroll, 2, 2, 0, /*
1401 Set number of columns WINDOW's modeline is scrolled from left margin to NCOL. 1404 Set number of columns WINDOW's modeline is scrolled from left margin to NCOL.
1402 NCOL should be zero or positive. If NCOL is negative, it will be forced to 0. 1405 NCOL should be zero or positive. If NCOL is negative, it will be forced to 0.
1403 If the window has no modeline, do nothing and return nil. 1406 If the window has no modeline, do nothing and return nil.
1404 */ 1407 */
1418 w->modeline_hscroll = ncols; 1421 w->modeline_hscroll = ncols;
1419 return ncol; 1422 return ncol;
1420 } 1423 }
1421 return Qnil; 1424 return Qnil;
1422 } 1425 }
1426 #endif
1423 1427
1424 #if 0 /* bogus crock */ 1428 #if 0 /* bogus crock */
1425 1429
1426 xxDEFUN ("window-redisplay-end-trigger", 1430 xxDEFUN ("window-redisplay-end-trigger",
1427 Fwindow_redisplay_end_trigger, 0, 1, 0, /* 1431 Fwindow_redisplay_end_trigger, 0, 1, 0, /*