mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 18:00:40 -08:00
Code Issues Projects Releases Wiki Activity

* keyboard.c (Qratio): New symbol.

Browse source 
(scroll_bar_parts): Add `Qratio' to it.
(syms_of_keyboard): Init `Qratio'.
This commit is contained in:
Stefan Monnier 1999-12-10 01:39:53 +00:00
parent 57207f1e9c
commit eef28553ff
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/keyboard.c
View file

@ -4012,12 +4012,12 @@ static char *lispy_drag_n_drop_names[] =
/* 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 @@ syms_of_keyboard ()
staticpro (&Qbottom);
Qend_scroll = intern ("end-scroll");
staticpro (&Qend_scroll);
Qratio = intern ("ratio");
staticpro (&Qratio);
Qevent_kind = intern ("event-kind");
staticpro (&Qevent_kind);