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

diff --git a/src/ChangeLog b/src/ChangeLog
index ca43ce4dc8f91d719a3fe159f025351c2dee6f92..4e72b9c0d2bfcf91efd8ebaab4e5306b8738fbfa 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 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.

diff --git a/src/eval.c b/src/eval.c
index d0effc755a21eb9e48c619b6ee78433b3ea7d0cf..f9ed8712eb3adf306c41f1d2ebc647409212d761 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -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;
 }
 \f
-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);
 }
-