Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
284f4730
Commit
284f4730
authored
Jan 28, 1992
by
Jim Blandy
Browse files
Initial revision
parent
6bbbd9b0
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3772 additions
and
0 deletions
+3772
-0
src/keyboard.c
src/keyboard.c
+3704
-0
src/keyboard.h
src/keyboard.h
+68
-0
No files found.
src/keyboard.c
0 → 100644
View file @
284f4730
This diff is collapsed.
Click to expand it.
src/keyboard.h
0 → 100644
View file @
284f4730
/* Declarations useful when processing input.
Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Total number of times read_char has returned. */
extern
int
num_input_chars
;
/* Nonzero means polling for input is temporarily suppresed. */
extern
int
poll_suppress_count
;
/* Keymap mapping ASCII function key sequences onto their preferred forms.
Initialized by the terminal-specific lisp files. */
extern
Lisp_Object
Vfunction_key_map
;
/* Macros for dealing with lispy events. */
/* True iff EVENT has data fields describing it (i.e. a mouse click). */
#define EVENT_HAS_PARAMETERS(event) \
(XTYPE (event) == Lisp_Cons && Flength (event) == 5)
/* Access the components of composite events. */
#define EVENT_HEAD(event) (Fnth (0, (event)))
#define EVENT_WINDOW(event) (Fnth (1, (event)))
#define EVENT_BUFFER_POSN(event) (Fnth (2, (event)))
#define EVENT_SCROLLBAR_BUTTON EVENT_BUFFER_POSN
#define EVENT_WINDOW_POSN(event) (Fnth (3, (event)))
#define EVENT_TIMESTAMP(event) (Fnth (4, (event)))
/* Some of the event heads. */
extern
Lisp_Object
Qvscrollbar_part
,
Qvslider_part
;
extern
Lisp_Object
Qvthumbup_part
,
Qvthumbdown_part
;
extern
Lisp_Object
Qhscrollbar_part
,
Qhslider_part
;
extern
Lisp_Object
Qhthumbleft_part
,
Qhthumbright_part
;
/* Properties on event heads. */
extern
Lisp_Object
Qevent_kind
,
Qevent_unmodified
;
/* Getting an unmodified version of an event head. */
#define EVENT_HEAD_UNMODIFIED(event_head) \
(Fget ((event_head), Qevent_unmodified))
/* The values of Qevent_kind properties. */
extern
Lisp_Object
Qfunction_key
,
Qmouse_click
,
Qmouse_movement
;
extern
Lisp_Object
Qscrollbar_click
;
/* Getting the kind of an event head. */
#define EVENT_HEAD_KIND(event_head) \
(Fget ((event_head), Qevent_kind))
/* Symbols to use for non-text mouse positions. */
extern
Lisp_Object
Qmode_line
,
Qvertical_split
;
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment