Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8c917bf2
Commit
8c917bf2
authored
Mar 01, 1995
by
Karl Heuer
Browse files
(Fcall_interactively, syms_of_callint, Vprefix_arg, Vcurrent_prefix_arg): Undo
Jan 31 change.
parent
f1cbbff5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
22 additions
and
2 deletions
+22
-2
src/callint.c
src/callint.c
+22
-2
No files found.
src/callint.c
View file @
8c917bf2
...
...
@@ -28,7 +28,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
extern
char
*
index
();
Lisp_Object
Qminus
,
Qplus
;
Lisp_Object
Vprefix_arg
,
Vcurrent_prefix_arg
,
Qminus
,
Qplus
;
Lisp_Object
Qcall_interactively
;
Lisp_Object
Vcommand_history
;
...
...
@@ -202,7 +202,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
struct
gcpro
gcpro1
,
gcpro2
,
gcpro3
,
gcpro4
;
/* Save this now, since use of minibuffer will clobber it. */
prefix_arg
=
current_perdisplay
->
Vcurrent_prefix_arg
;
prefix_arg
=
Vcurrent_prefix_arg
;
retry:
...
...
@@ -684,6 +684,26 @@ syms_of_callint ()
Qmouse_leave_buffer_hook
=
intern
(
"mouse-leave-buffer-hook"
);
staticpro
(
&
Qmouse_leave_buffer_hook
);
DEFVAR_LISP
(
"prefix-arg"
,
&
Vprefix_arg
,
"The value of the prefix argument for the next editing command.
\n
\
It may be a number, or the symbol `-' for just a minus sign as arg,
\n
\
or a list whose car is a number for just one or more C-U's
\n
\
or nil if no argument has been specified.
\n
\
\n
\
You cannot examine this variable to find the argument for this command
\n
\
since it has been set to nil by the time you can look.
\n
\
Instead, you should use the variable `current-prefix-arg', although
\n
\
normally commands can get this prefix argument with (interactive
\"
P
\"
)."
);
Vprefix_arg
=
Qnil
;
DEFVAR_LISP
(
"current-prefix-arg"
,
&
Vcurrent_prefix_arg
,
"The value of the prefix argument for this editing command.
\n
\
It may be a number, or the symbol `-' for just a minus sign as arg,
\n
\
or a list whose car is a number for just one or more C-U's
\n
\
or nil if no argument has been specified.
\n
\
This is what `(interactive
\"
P
\"
)' returns."
);
Vcurrent_prefix_arg
=
Qnil
;
DEFVAR_LISP
(
"command-history"
,
&
Vcommand_history
,
"List of recent commands that read arguments from terminal.
\n
\
Each command is represented as a form to evaluate."
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment