Mercurial > hg > xemacs-beta
diff src/scrollbar.c @ 272:c5d627a313b1 r21-0b34
Import from CVS: tag r21-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:28:48 +0200 |
parents | 0e522484dd2a |
children | 6330739388db |
line wrap: on
line diff
--- a/src/scrollbar.c Mon Aug 13 10:27:41 2007 +0200 +++ b/src/scrollbar.c Mon Aug 13 10:28:48 2007 +0200 @@ -541,8 +541,7 @@ if (HAS_DEVMETH_P (d, create_scrollbar_instance)) { - Lisp_Object frame = Qnil; - + Lisp_Object frame; XSETFRAME (frame, f); call_critical_lisp_code (XDEVICE (FRAME_DEVICE (f)), Qinit_scrollbar_from_resources, @@ -555,8 +554,7 @@ { if (HAS_DEVMETH_P (d, create_scrollbar_instance)) { - Lisp_Object device = Qnil; - + Lisp_Object device; XSETDEVICE (device, d); call_critical_lisp_code (d, Qinit_scrollbar_from_resources, @@ -705,7 +703,7 @@ DEFUN ("scrollbar-page-up", Fscrollbar_page_up, 1, 1, 0, /* Function called when the user gives the "page-up" scrollbar action. -(The way this is done can vary from scrollbar to scrollbar.) One argument, +\(The way this is done can vary from scrollbar to scrollbar.) One argument, a cons containing the scrollbar's window and a value (#### document me! This value is nil for Motif/Lucid scrollbars and a number for Athena scrollbars). You can advise this function to change the scrollbar @@ -746,7 +744,7 @@ DEFUN ("scrollbar-page-down", Fscrollbar_page_down, 1, 1, 0, /* Function called when the user gives the "page-down" scrollbar action. -(The way this is done can vary from scrollbar to scrollbar.) One argument, +\(The way this is done can vary from scrollbar to scrollbar.) One argument, a cons containing the scrollbar's window and a value (#### document me! This value is nil for Motif/Lucid scrollbars and a number for Athena scrollbars). You can advise this function to change the scrollbar @@ -834,7 +832,7 @@ } DEFUN ("scrollbar-set-hscroll", Fscrollbar_set_hscroll, 2, 2, 0, /* -Sets WINDOW's hscroll position to VALUE. +Set WINDOW's hscroll position to VALUE. This ensures that VALUE is in the proper range for the horizontal scrollbar. */ (window, value))