Commit 475545b5 authored by Paul Eggert's avatar Paul Eggert
Browse files

* eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static.

parent b0e80955
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.
......@@ -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);
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment