diff options
| -rw-r--r-- | src/callint.c | 12 |
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 | ||
| 29 | extern char *index (); | 29 | extern char *index (); |
| 30 | 30 | ||
| 31 | Lisp_Object Vprefix_arg, Vcurrent_prefix_arg, Qminus, Qplus; | 31 | Lisp_Object Qminus, Qplus; |
| 32 | Lisp_Object Qcall_interactively; | 32 | Lisp_Object Qcall_interactively; |
| 33 | Lisp_Object Vcommand_history; | 33 | Lisp_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\ |
| 660 | It may be a number, or the symbol `-' for just a minus sign as arg,\n\ | 660 | It may be a number, or the symbol `-' for just a minus sign as arg,\n\ |
| 661 | or a list whose car is a number for just one or more C-U's\n\ | 661 | or 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\ | |||
| 665 | since it has been set to nil by the time you can look.\n\ | 665 | since it has been set to nil by the time you can look.\n\ |
| 666 | Instead, you should use the variable `current-prefix-arg', although\n\ | 666 | Instead, you should use the variable `current-prefix-arg', although\n\ |
| 667 | normally commands can get this prefix argument with (interactive \"P\")."); | 667 | normally 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\ |
| 672 | It may be a number, or the symbol `-' for just a minus sign as arg,\n\ | 672 | It may be a number, or the symbol `-' for just a minus sign as arg,\n\ |
| 673 | or a list whose car is a number for just one or more C-U's\n\ | 673 | or a list whose car is a number for just one or more C-U's\n\ |
| 674 | or nil if no argument has been specified.\n\ | 674 | or nil if no argument has been specified.\n\ |
| 675 | This is what `(interactive \"P\")' returns."); | 675 | This 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\ |