changeset 10860:9f9a34e401d5

(struct PERDISPLAY): Add prefix_factor, prefix_value, prefix_sign, prefix_partial. Delete Vcurrent_prefix_arg and Vprefix_arg; those are now plain vars again.

--- a/src/lisp.h	Wed Mar 01 03:44:26 1995 +0000
+++ b/src/lisp.h	Wed Mar 01 03:45:45 1995 +0000
@@ -491,23 +491,12 @@
 struct PERDISPLAY
   {
     PERDISPLAY *next_perdisplay;
-    Lisp_Object Vprefix_arg;
-    Lisp_Object Vcurrent_prefix_arg;
 
-#ifdef MULTI_FRAME
-    /* The frame in which the last input event occurred, or Qmacro if the
-       last event came from a macro.  We use this to determine when to
-       generate switch-frame events.  This may be cleared by functions
-       like Fselect_frame, to make sure that a switch-frame event is
-       generated by the next character.  */
-    Lisp_Object internal_last_event_frame;
-#endif
+    /* The state of a prefix arg.  */
+    Lisp_Object prefix_factor, prefix_value;
+    int prefix_sign, prefix_partial;
 
-    /* A user-visible version of the above, intended to allow users to
-       figure out where the last event came from, if the event doesn't
-       carry that information itself (i.e. if it was a character).  */
-    Lisp_Object Vlast_event_frame;
-
+    /* Unread events specific to this display.  */
     Lisp_Object kbd_queue;
 
     /* Placeholder for future vars that will be moved here.  */
@@ -1581,7 +1570,7 @@
 
 /* Defined in callint.c */
 
-extern Lisp_Object Qminus, Qplus;
+extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg, Vprefix_arg;
 extern Lisp_Object Vcommand_history;
 extern Lisp_Object Qcall_interactively;
 extern Lisp_Object Fcall_interactively ();
@@ -1598,6 +1587,7 @@
 extern Lisp_Object Fdiscard_input (), Frecursive_edit ();
 extern Lisp_Object Fcommand_execute (), Finput_pending_p ();
 extern Lisp_Object Qvertical_scroll_bar;
+extern void clear_prefix_arg ();
 
 /* defined in keymap.c */