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
52614803
Commit
52614803
authored
Jul 26, 1992
by
Richard M. Stallman
Browse files
entered into RCS
parent
1aa66088
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
1 deletion
+12
-1
src/callint.c
src/callint.c
+12
-1
No files found.
src/callint.c
View file @
52614803
...
...
@@ -33,6 +33,7 @@ Lisp_Object Qcall_interactively;
Lisp_Object
Vcommand_history
;
Lisp_Object
Vcommand_debug_status
,
Qcommand_debug_status
;
Lisp_Object
Qenable_recursive_minibuffers
;
/* This comment supplies the doc string for interactive,
for make-docfile to see. We cannot put this in the real DEFUN
...
...
@@ -156,6 +157,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
Lisp_Object
funcar
;
Lisp_Object
specs
;
Lisp_Object
teml
;
Lisp_Object
enable
;
int
speccount
=
specpdl_ptr
-
specpdl
;
Lisp_Object
prefix_arg
;
unsigned
char
*
string
;
...
...
@@ -179,6 +182,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
retry:
enable
=
Fget
(
function
,
Qenable_recursive_minibuffers
);
fun
=
indirect_function
(
function
);
specs
=
Qnil
;
...
...
@@ -299,6 +304,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
gcpro3
.
nvars
=
(
count
+
1
);
gcpro4
.
nvars
=
(
count
+
1
);
if
(
!
NILP
(
enable
))
specbind
(
Qenable_recursive_minibuffers
,
Qt
);
tem
=
string
;
for
(
i
=
1
;
*
tem
;
i
++
)
{
...
...
@@ -474,6 +482,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
if
(
tem
)
tem
++
;
else
tem
=
(
unsigned
char
*
)
""
;
}
unbind_to
(
speccount
,
Qnil
);
QUIT
;
...
...
@@ -493,7 +502,6 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
{
Lisp_Object
val
;
int
speccount
=
specpdl_ptr
-
specpdl
;
specbind
(
Qcommand_debug_status
,
Qnil
);
val
=
Ffuncall
(
count
+
1
,
args
);
...
...
@@ -541,6 +549,9 @@ syms_of_callint ()
Qcommand_debug_status
=
intern
(
"command-debug-status"
);
staticpro
(
&
Qcommand_debug_status
);
Qenable_recursive_minibuffers
=
intern
(
"enable-recursive-minibuffers"
);
staticpro
(
&
Qenable_recursive_minibuffers
);
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
\
...
...
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