Mercurial > hg > xemacs-beta

comparison src/window.c @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents c33ae14dd6d0
children 183866b06e0b
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
4511 Negative COUNT means scroll downward. 4511 Negative COUNT means scroll downward.
4512 When calling from a program, supply an integer as argument or nil. 4512 When calling from a program, supply an integer as argument or nil.
4513 On attempt to scroll past end of buffer, `end-of-buffer' is signaled. 4513 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
4514 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is 4514 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
4515 signaled. 4515 signaled.
4516
4517 The characters that are moved over may be added to the current selection
4518 \(i.e. active region) if the Shift key is held down, a motion key is used
4519 to invoke this command, and `shifted-motion-keys-select-region' is t; see
4520 the documentation for this variable for more details.
4516 */ 4521 */
4517 (count)) 4522 (count))
4518 { 4523 {
4519 window_scroll (Fselected_window (Qnil), count, 1, ERROR_ME); 4524 window_scroll (Fselected_window (Qnil), count, 1, ERROR_ME);
4520 return Qnil; 4525 return Qnil;
4526 Negative COUNT means scroll upward. 4531 Negative COUNT means scroll upward.
4527 When calling from a program, supply a number as argument or nil. 4532 When calling from a program, supply a number as argument or nil.
4528 On attempt to scroll past end of buffer, `end-of-buffer' is signaled. 4533 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
4529 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is 4534 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
4530 signaled. 4535 signaled.
4536
4537 The characters that are moved over may be added to the current selection
4538 \(i.e. active region) if the Shift key is held down, a motion key is used
4539 to invoke this command, and `shifted-motion-keys-select-region' is t; see
4540 the documentation for this variable for more details.
4531 */ 4541 */
4532 (count)) 4542 (count))
4533 { 4543 {
4534 window_scroll (Fselected_window (Qnil), count, -1, ERROR_ME); 4544 window_scroll (Fselected_window (Qnil), count, -1, ERROR_ME);
4535 return Qnil; 4545 return Qnil;
4598 } 4608 }
4599 4609
4600 DEFUN ("scroll-left", Fscroll_left, 0, 1, "_P", /* 4610 DEFUN ("scroll-left", Fscroll_left, 0, 1, "_P", /*
4601 Scroll selected window display COUNT columns left. 4611 Scroll selected window display COUNT columns left.
4602 Default for COUNT is window width minus 2. 4612 Default for COUNT is window width minus 2.
4613
4614 The characters that are moved over may be added to the current selection
4615 \(i.e. active region) if the Shift key is held down, a motion key is used
4616 to invoke this command, and `shifted-motion-keys-select-region' is t; see
4617 the documentation for this variable for more details.
4603 */ 4618 */
4604 (count)) 4619 (count))
4605 { 4620 {
4606 Lisp_Object window = Fselected_window (Qnil); 4621 Lisp_Object window = Fselected_window (Qnil);
4607 struct window *w = XWINDOW (window); 4622 struct window *w = XWINDOW (window);
4613 } 4628 }
4614 4629
4615 DEFUN ("scroll-right", Fscroll_right, 0, 1, "_P", /* 4630 DEFUN ("scroll-right", Fscroll_right, 0, 1, "_P", /*
4616 Scroll selected window display COUNT columns right. 4631 Scroll selected window display COUNT columns right.
4617 Default for COUNT is window width minus 2. 4632 Default for COUNT is window width minus 2.
4633
4634 The characters that are moved over may be added to the current selection
4635 \(i.e. active region) if the Shift key is held down, a motion key is used
4636 to invoke this command, and `shifted-motion-keys-select-region' is t; see
4637 the documentation for this variable for more details.
4618 */ 4638 */
4619 (count)) 4639 (count))
4620 { 4640 {
4621 Lisp_Object window = Fselected_window (Qnil); 4641 Lisp_Object window = Fselected_window (Qnil);
4622 struct window *w = XWINDOW (window); 4642 struct window *w = XWINDOW (window);
6309 { 6329 {
6310 Lisp_Object fb = Qnil; 6330 Lisp_Object fb = Qnil;
6311 #ifdef HAVE_TTY 6331 #ifdef HAVE_TTY
6312 fb = Fcons (Fcons (list1 (Qtty), make_int (1)), fb); 6332 fb = Fcons (Fcons (list1 (Qtty), make_int (1)), fb);
6313 #endif 6333 #endif
6334 #ifdef HAVE_GTK
6335 fb = Fcons (Fcons (list1 (Qgtk), make_int (3)), fb);
6336 #endif
6314 #ifdef HAVE_X_WINDOWS 6337 #ifdef HAVE_X_WINDOWS
6315 fb = Fcons (Fcons (list1 (Qx), make_int (3)), fb); 6338 fb = Fcons (Fcons (list1 (Qx), make_int (3)), fb);
6316 #endif 6339 #endif
6317 #ifdef HAVE_MS_WINDOWS 6340 #ifdef HAVE_MS_WINDOWS
6318 /* #### This should be made magic and made to obey system settings */ 6341 /* #### This should be made magic and made to obey system settings */
6343 #ifdef HAVE_X_WINDOWS 6366 #ifdef HAVE_X_WINDOWS
6344 /* #### 3D dividers look great on MS Windows with spacing = 0. 6367 /* #### 3D dividers look great on MS Windows with spacing = 0.
6345 Should not the same value be the fallback under X? - kkm */ 6368 Should not the same value be the fallback under X? - kkm */
6346 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb); 6369 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb);
6347 #endif 6370 #endif
6371 #ifdef HAVE_GTK
6372 fb = Fcons (Fcons (list1 (Qgtk), Qzero), fb);
6373 #endif
6348 #ifdef HAVE_MS_WINDOWS 6374 #ifdef HAVE_MS_WINDOWS
6349 fb = Fcons (Fcons (list1 (Qmswindows), Qzero), fb); 6375 fb = Fcons (Fcons (list1 (Qmswindows), Qzero), fb);
6350 #endif 6376 #endif
6351 set_specifier_fallback (Vvertical_divider_spacing, fb); 6377 set_specifier_fallback (Vvertical_divider_spacing, fb);
6352 } 6378 }