aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/callint.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/callint.c b/src/callint.c
index a25032b7fa7..bdb8e23e11d 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -28,7 +28,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
28 28
29extern char *index (); 29extern char *index ();
30 30
31Lisp_Object Vprefix_arg, Vcurrent_prefix_arg, Qminus, Qplus; 31Lisp_Object Qminus, Qplus;
32Lisp_Object Qcall_interactively; 32Lisp_Object Qcall_interactively;
33Lisp_Object Vcommand_history; 33Lisp_Object Vcommand_history;
34 34
@@ -198,7 +198,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
198 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; 198 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
199 199
200 /* Save this now, since use of minibuffer will clobber it. */ 200 /* Save this now, since use of minibuffer will clobber it. */
201 prefix_arg = Vcurrent_prefix_arg; 201 prefix_arg = current_perdisplay->Vcurrent_prefix_arg;
202 202
203 retry: 203 retry:
204 204
@@ -655,7 +655,7 @@ syms_of_callint ()
655 Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook"); 655 Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook");
656 staticpro (&Qmouse_leave_buffer_hook); 656 staticpro (&Qmouse_leave_buffer_hook);
657 657
658 DEFVAR_LISP ("prefix-arg", &Vprefix_arg, 658 DEFVAR_DISPLAY ("prefix-arg", Vprefix_arg,
659 "The value of the prefix argument for the next editing command.\n\ 659 "The value of the prefix argument for the next editing command.\n\
660It may be a number, or the symbol `-' for just a minus sign as arg,\n\ 660It may be a number, or the symbol `-' for just a minus sign as arg,\n\
661or a list whose car is a number for just one or more C-U's\n\ 661or a list whose car is a number for just one or more C-U's\n\
@@ -665,15 +665,15 @@ You cannot examine this variable to find the argument for this command\n\
665since it has been set to nil by the time you can look.\n\ 665since it has been set to nil by the time you can look.\n\
666Instead, you should use the variable `current-prefix-arg', although\n\ 666Instead, you should use the variable `current-prefix-arg', although\n\
667normally commands can get this prefix argument with (interactive \"P\")."); 667normally commands can get this prefix argument with (interactive \"P\").");
668 Vprefix_arg = Qnil; 668 the_only_perdisplay.Vprefix_arg = Qnil;
669 669
670 DEFVAR_LISP ("current-prefix-arg", &Vcurrent_prefix_arg, 670 DEFVAR_DISPLAY ("current-prefix-arg", Vcurrent_prefix_arg,
671 "The value of the prefix argument for this editing command.\n\ 671 "The value of the prefix argument for this editing command.\n\
672It may be a number, or the symbol `-' for just a minus sign as arg,\n\ 672It may be a number, or the symbol `-' for just a minus sign as arg,\n\
673or a list whose car is a number for just one or more C-U's\n\ 673or a list whose car is a number for just one or more C-U's\n\
674or nil if no argument has been specified.\n\ 674or nil if no argument has been specified.\n\
675This is what `(interactive \"P\")' returns."); 675This is what `(interactive \"P\")' returns.");
676 Vcurrent_prefix_arg = Qnil; 676 the_only_perdisplay.Vcurrent_prefix_arg = Qnil;
677 677
678 DEFVAR_LISP ("command-history", &Vcommand_history, 678 DEFVAR_LISP ("command-history", &Vcommand_history,
679 "List of recent commands that read arguments from terminal.\n\ 679 "List of recent commands that read arguments from terminal.\n\