diff options
| author | Karl Heuer | 1995-02-04 00:31:13 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-02-04 00:31:13 +0000 |
| commit | eebf4ec9ce15b03c7dcae4d69206925b130097d1 (patch) | |
| tree | 0753da551fee909b2a6b4a312284a0a8e5b976df | |
| parent | b9737ad37967b509a555c588daac3c7985eb09fc (diff) | |
| download | emacs-eebf4ec9ce15b03c7dcae4d69206925b130097d1.tar.gz emacs-eebf4ec9ce15b03c7dcae4d69206925b130097d1.zip | |
(syms_of_callint): Move DEFVAR_DISPLAY's to keyboard.c.
| -rw-r--r-- | src/callint.c | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/src/callint.c b/src/callint.c index bdb8e23e11d..357f4b9aa86 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -655,26 +655,6 @@ 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_DISPLAY ("prefix-arg", Vprefix_arg, | ||
| 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\ | ||
| 661 | or a list whose car is a number for just one or more C-U's\n\ | ||
| 662 | or nil if no argument has been specified.\n\ | ||
| 663 | \n\ | ||
| 664 | 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\ | ||
| 666 | Instead, you should use the variable `current-prefix-arg', although\n\ | ||
| 667 | normally commands can get this prefix argument with (interactive \"P\")."); | ||
| 668 | the_only_perdisplay.Vprefix_arg = Qnil; | ||
| 669 | |||
| 670 | DEFVAR_DISPLAY ("current-prefix-arg", Vcurrent_prefix_arg, | ||
| 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\ | ||
| 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\ | ||
| 675 | This is what `(interactive \"P\")' returns."); | ||
| 676 | the_only_perdisplay.Vcurrent_prefix_arg = Qnil; | ||
| 677 | |||
| 678 | DEFVAR_LISP ("command-history", &Vcommand_history, | 658 | DEFVAR_LISP ("command-history", &Vcommand_history, |
| 679 | "List of recent commands that read arguments from terminal.\n\ | 659 | "List of recent commands that read arguments from terminal.\n\ |
| 680 | Each command is represented as a form to evaluate."); | 660 | Each command is represented as a form to evaluate."); |