* eval.c: Make symbols static if they're not exported.

(backtrace_list, lisp_eval_depth, when_entered_debugger): Now static.
* lisp.h (backtrace_list): Remove decl.

diff --git a/src/ChangeLog b/src/ChangeLog
index fe3fd55054492fdfb58baf1e0d209b26accfbaef..5a6da2ab788e2fa3e4d8f468c074a7da7d5c6fe9 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2011-04-13  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * eval.c: Make symbols static if they're not exported.
+       (backtrace_list, lisp_eval_depth, when_entered_debugger): Now static.
+       * lisp.h (backtrace_list): Remove decl.
+
        * emacs.c: Make symbols static if they're not exported.
        (malloc_state_ptr, malloc_using_checking, syms_of_emacs):
        (fatal_error_code, fatal_error_signal_hook, standard_args):

diff --git a/src/eval.c b/src/eval.c
index dddedc77286784af70c7267dd0f2ebe057cdf598..ef5eb6bdaaf02e383041be5825b4b10063611f0a 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -56,7 +56,7 @@ struct backtrace
   char debug_on_exit : 1;
 };
 
-struct backtrace *backtrace_list;
+static struct backtrace *backtrace_list;
 
 #if !BYTE_MARK_STACK
 static
@@ -116,7 +116,7 @@ struct specbinding *specpdl_ptr;
 
 /* Depth in Lisp evaluations and function calls.  */
 
-EMACS_INT lisp_eval_depth;
+static EMACS_INT lisp_eval_depth;
 
 /* The value of num_nonmacro_input_events as of the last time we
    started to enter the debugger.  If we decide to enter the debugger
@@ -125,7 +125,7 @@ EMACS_INT lisp_eval_depth;
    signal the error instead of entering an infinite loop of debugger
    invocations.  */
 
-int when_entered_debugger;
+static int when_entered_debugger;
 
 /* The function from which the last `signal' was called.  Set in
    Fsignal.  */

diff --git a/src/lisp.h b/src/lisp.h
index f678630a76fec6dd0a723cd9da40978d53cc25b2..420d6024b7fc4824bbb01470c4b8ebae53e9dd1b 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2005,8 +2005,6 @@ struct catchtag
   struct byte_stack *byte_stack;
 };
 
-extern struct backtrace *backtrace_list;
-
 extern Lisp_Object memory_signal_data;
 
 /* An address near the bottom of the stack.