# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 944789993 0
# Node ID 5e97315b6f1172e549bb6c7f9bc07c7cb788e14a
# Parent  5379722b5468e88f8b35f1efd5e34fc8dc81e869
* keyboard.c (Qratio): New symbol.
(scroll_bar_parts): Add `Qratio' to it.
(syms_of_keyboard): Init `Qratio'.

diff -r 5379722b5468 -r 5e97315b6f11 src/keyboard.c
--- a/src/keyboard.c	Fri Dec 10 01:39:30 1999 +0000
+++ b/src/keyboard.c	Fri Dec 10 01:39:53 1999 +0000
@@ -4012,12 +4012,12 @@
 /* Scroll bar parts.  */
 Lisp_Object Qabove_handle, Qhandle, Qbelow_handle;
 Lisp_Object Qup, Qdown, Qbottom, Qend_scroll;
-Lisp_Object Qtop;
+Lisp_Object Qtop, Qratio;
 
 /* An array of scroll bar parts, indexed by an enum scroll_bar_part value.  */
 Lisp_Object *scroll_bar_parts[] = {
   &Qabove_handle, &Qhandle, &Qbelow_handle,
-  &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll
+  &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio
 };
 
 /* User signal events.  */
@@ -9621,6 +9621,8 @@
   staticpro (&Qbottom);
   Qend_scroll = intern ("end-scroll");
   staticpro (&Qend_scroll);
+  Qratio = intern ("ratio");
+  staticpro (&Qratio);
 
   Qevent_kind = intern ("event-kind");
   staticpro (&Qevent_kind);