]> git.eshelyaron.com Git - emacs.git/commitdiff
(PERD): New struct containing per-display data.
authorKarl Heuer <kwzh@gnu.org>
Wed, 25 Jan 1995 07:18:37 +0000 (07:18 +0000)
committerKarl Heuer <kwzh@gnu.org>
Wed, 25 Jan 1995 07:18:37 +0000 (07:18 +0000)
(the_only_perd): An instance of it.
(get_perd): Macro to retrieve it.

src/lisp.h

index 937e5315083b614eb77ad67c570470143efe13a2..1adf5433863470238e9c5ac362eadaffc18654c8 100644 (file)
@@ -483,6 +483,26 @@ typedef struct interval *INTERVAL;
 
 #endif /* USE_TEXT_PROPERTIES */
 \f
+/* 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)
+\f
 /* In a cons, the markbit of the car is the gc mark bit */
 
 struct Lisp_Cons