changeset 10549:c57d8bad186b

(PERD): New struct containing per-display data. (the_only_perd): An instance of it. (get_perd): Macro to retrieve it.
author Karl Heuer <kwzh@gnu.org>
date Wed, 25 Jan 1995 07:18:37 +0000
parents dcae4394587d
children 8e536dd17a89
files src/lisp.h
diffstat 1 files changed, 20 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Wed Jan 25 02:02:37 1995 +0000
+++ b/src/lisp.h	Wed Jan 25 07:18:37 1995 +0000
@@ -483,6 +483,26 @@
 
 #endif /* USE_TEXT_PROPERTIES */
 
+/* All of the per-display objects, packaged together in a struct.  */
+typedef struct
+  {
+    Lisp_Object prefix_arg;
+    Lisp_Object current_prefix_arg;
+    Lisp_Object this_command_keys;
+    Lisp_Object internal_last_event_frame;
+    Lisp_Object kbd_buffer_frame_or_window;
+    struct input_event *kbd_buffer;
+    struct input_event *kbd_fetch_ptr;
+    struct input_event *kbd_store_ptr;
+    int this_command_key_count;
+    int immediate_echo;
+    int echo_after_prompt;
+    char *echoptr;
+    char echobuf[300];
+  } PERD;
+extern PERD the_only_perd;
+#define get_perd(f) (&the_only_perd)
+
 /* In a cons, the markbit of the car is the gc mark bit */
 
 struct Lisp_Cons