# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791850067 0
# Node ID 0871d1c3cb26fd7785b06f94aa082cf9773084ba
# Parent  ae3b1d97e0d6ccfd7631ac57ac0161b26c6bbfef
(all_perdisplays): New var.
(struct PERDISPLAY): New member next_perdisplay.

diff -r ae3b1d97e0d6 -r 0871d1c3cb26 src/lisp.h
--- a/src/lisp.h	Fri Feb 03 21:13:01 1995 +0000
+++ b/src/lisp.h	Fri Feb 03 22:21:07 1995 +0000
@@ -487,8 +487,10 @@
 
 #define ECHOBUFSIZE 300
 /* All of the per-display objects, packaged together in a struct.  */
-typedef struct
+typedef struct PERDISPLAY PERDISPLAY;
+struct PERDISPLAY
   {
+    PERDISPLAY *next_perdisplay;
     Lisp_Object Vprefix_arg;
     Lisp_Object Vcurrent_prefix_arg;
     Lisp_Object this_command_keys;
@@ -560,17 +562,22 @@
     /* The text we're echoing in the modeline - partial key sequences,
        usually.  '\0'-terminated.  This really shouldn't have a fixed size.  */
     char echobuf[ECHOBUFSIZE];
-  } PERDISPLAY;
+  };
+
 #ifdef MULTI_PERDISPLAY
 /* The perdisplay object associated with a particular frame.  */
 extern PERDISPLAY *get_perdisplay ();
 
 /* The perdisplay object associated with the currently executing command.  */
 extern PERDISPLAY *current_perdisplay;
+
+/* A list of all perdisplay objects, linked through next_perdisplay.  */
+extern PERDISPLAY *all_perdisplays;
 #else
 extern PERDISPLAY the_only_perdisplay;
+#define get_perdisplay(f) (&the_only_perdisplay)
 #define current_perdisplay (&the_only_perdisplay)
-#define get_perdisplay(f) (&the_only_perdisplay)
+#define all_perdisplays (&the_only_perdisplay)
 #endif
 
 /* In a cons, the markbit of the car is the gc mark bit */