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
475545b5
Commit
475545b5
authored
Mar 16, 2011
by
Paul Eggert
Browse files
* eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static.
parent
b0e80955
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
8 deletions
+9
-8
src/ChangeLog
src/ChangeLog
+2
-0
src/eval.c
src/eval.c
+7
-8
No files found.
src/ChangeLog
View file @
475545b5
2011-03-16 Paul Eggert <eggert@cs.ucla.edu>
* eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static.
* callint.c (quotify_arg, quotify_args): Now static.
(Fcall_interactively): Rename locals to avoid shadowing.
Use const pointer when appropriate.
src/eval.c
View file @
475545b5
...
...
@@ -158,7 +158,7 @@ restore_stack_limits (Lisp_Object data)
/* Call the Lisp debugger, giving it argument ARG. */
Lisp_Object
static
Lisp_Object
call_debugger
(
Lisp_Object
arg
)
{
int
debug_while_redisplaying
;
...
...
@@ -214,7 +214,7 @@ call_debugger (Lisp_Object arg)
return
unbind_to
(
count
,
val
);
}
void
static
void
do_debug_on_call
(
Lisp_Object
code
)
{
debug_on_next_call
=
0
;
...
...
@@ -1637,7 +1637,7 @@ See also the function `condition-case'. */)
if
(
!
NILP
(
clause
))
break
;
}
if
(
/* Don't run the debugger for a memory-full error.
(There is no room in memory to do that!) */
!
NILP
(
error_symbol
)
...
...
@@ -1654,13 +1654,13 @@ See also the function `condition-case'. */)
can continue code which has signaled a quit. */
if
(
debugger_called
&&
EQ
(
real_error_symbol
,
Qquit
))
return
Qnil
;
}
}
if
(
!
NILP
(
clause
))
{
Lisp_Object
unwind_data
=
(
NILP
(
error_symbol
)
?
data
:
Fcons
(
error_symbol
,
data
));
h
->
chosen_clause
=
clause
;
unwind_to_catch
(
h
->
tag
,
unwind_data
);
}
...
...
@@ -1672,7 +1672,7 @@ See also the function `condition-case'. */)
if
(
!
NILP
(
error_symbol
))
data
=
Fcons
(
error_symbol
,
data
);
string
=
Ferror_message_string
(
data
);
fatal
(
"%s"
,
SDATA
(
string
),
0
);
}
...
...
@@ -3057,7 +3057,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode,
return
object
;
}
void
static
void
grow_specpdl
(
void
)
{
register
int
count
=
SPECPDL_INDEX
();
...
...
@@ -3589,4 +3589,3 @@ The value the function returns is not used. */);
defsubr
(
&
Sbacktrace
);
defsubr
(
&
Sbacktrace_frame
);
}
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