Mercurial > hg > xemacs-beta

comparison src/window.c @ 265:8efd647ea9ca r20-5b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents 727739f917cb
children 966663fcf606
comparison
equal deleted inserted replaced
264:682d2a9d41a5 265:8efd647ea9ca
4069 } 4069 }
4070 } 4070 }
4071 4071
4072 } 4072 }
4073 4073
4074 extern int signal_error_on_buffer_boundary;
4075
4076 DEFUN ("scroll-up", Fscroll_up, 0, 1, "_P", /* 4074 DEFUN ("scroll-up", Fscroll_up, 0, 1, "_P", /*
4077 Scroll text of current window upward ARG lines; or near full screen if no ARG. 4075 Scroll text of current window upward ARG lines; or near full screen if no ARG.
4078 A near full screen is `next-screen-context-lines' less than a full screen. 4076 A near full screen is `next-screen-context-lines' less than a full screen.
4079 Negative ARG means scroll downward. 4077 Negative ARG means scroll downward.
4080 When calling from a program, supply a number as argument or nil. 4078 When calling from a program, supply a number as argument or nil.
4081 4079 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
4082 If `signal-error-on-buffer-boundary' is nil, the usual error and 4080 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
4083 loss of zmacs region is suppressed when moving past end of buffer. 4081 signaled.
4084 */ 4082 */
4085 (n)) 4083 (n))
4086 { 4084 {
4087 Error_behavior errb = 4085 window_scroll (Fselected_window (Qnil), n, 1, ERROR_ME);
4088 signal_error_on_buffer_boundary ? ERROR_ME : ERROR_ME_NOT;
4089
4090 window_scroll (Fselected_window (Qnil), n, 1, errb);
4091 return Qnil; 4086 return Qnil;
4092 } 4087 }
4093 4088
4094 DEFUN ("scroll-down", Fscroll_down, 0, 1, "_P", /* 4089 DEFUN ("scroll-down", Fscroll_down, 0, 1, "_P", /*
4095 Scroll text of current window downward ARG lines; or near full screen if no ARG. 4090 Scroll text of current window downward ARG lines; or near full screen if no ARG.
4096 A near full screen is `next-screen-context-lines' less than a full screen. 4091 A near full screen is `next-screen-context-lines' less than a full screen.
4097 Negative ARG means scroll upward. 4092 Negative ARG means scroll upward.
4098 When calling from a program, supply a number as argument or nil. 4093 When calling from a program, supply a number as argument or nil.
4099 4094 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
4100 If `signal-error-on-buffer-boundary' is nil, the usual error and 4095 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
4101 loss of zmacs region is suppressed when moving past end of buffer. 4096 signaled.
4102 */ 4097 */
4103 (n)) 4098 (n))
4104 { 4099 {
4105 Error_behavior errb = 4100 window_scroll (Fselected_window (Qnil), n, -1, ERROR_ME);
4106 signal_error_on_buffer_boundary ? ERROR_ME : ERROR_ME_NOT;
4107
4108 window_scroll (Fselected_window (Qnil), n, -1, errb);
4109 return Qnil; 4101 return Qnil;
4110 } 4102 }
4111 4103
4112 DEFUN ("other-window-for-scrolling", Fother_window_for_scrolling, 0, 0, 0, /* 4104 DEFUN ("other-window-for-scrolling", Fother_window_for_scrolling, 0, 0, 0, /*
4113 Return the other window for "other window scroll" commands. 4105 Return the other window for "other window scroll" commands.
5564 DEFSUBR (Fwindow_displayed_pixel_height); 5556 DEFSUBR (Fwindow_displayed_pixel_height);
5565 DEFSUBR (Fwindow_width); 5557 DEFSUBR (Fwindow_width);
5566 DEFSUBR (Fwindow_pixel_height); 5558 DEFSUBR (Fwindow_pixel_height);
5567 DEFSUBR (Fwindow_pixel_width); 5559 DEFSUBR (Fwindow_pixel_width);
5568 DEFSUBR (Fwindow_hscroll); 5560 DEFSUBR (Fwindow_hscroll);
5561 #ifdef MODELINE_IS_SCROLLABLE
5569 DEFSUBR (Fmodeline_hscroll); 5562 DEFSUBR (Fmodeline_hscroll);
5563 #endif /* MODELINE_IS_SCROLLABLE */
5570 #if 0 /* bogus crock */ 5564 #if 0 /* bogus crock */
5571 DEFSUBR (Fwindow_redisplay_end_trigger); 5565 DEFSUBR (Fwindow_redisplay_end_trigger);
5572 DEFSUBR (Fset_window_redisplay_end_trigger); 5566 DEFSUBR (Fset_window_redisplay_end_trigger);
5573 #endif 5567 #endif
5574 DEFSUBR (Fset_window_hscroll); 5568 DEFSUBR (Fset_window_hscroll);
5569 #ifdef MODELINE_IS_SCROLLABLE
5575 DEFSUBR (Fset_modeline_hscroll); 5570 DEFSUBR (Fset_modeline_hscroll);
5571 #endif /* MODELINE_IS_SCROLLABLE */
5576 DEFSUBR (Fwindow_pixel_edges); 5572 DEFSUBR (Fwindow_pixel_edges);
5577 DEFSUBR (Fwindow_point); 5573 DEFSUBR (Fwindow_point);
5578 DEFSUBR (Fwindow_start); 5574 DEFSUBR (Fwindow_start);
5579 DEFSUBR (Fwindow_end); 5575 DEFSUBR (Fwindow_end);
5580 DEFSUBR (Fset_window_point); 5576 DEFSUBR (Fset_window_point);