From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 13 Apr 2011 22:53:58 +0000 (-0700)
Subject: * eval.c: Make symbols static if they're not exported.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~329
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57a96f5c91758efc0acf2c343dc876d0e0926018;p=emacs.git

* 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 fe3fd550544..5a6da2ab788 100644
--- 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 dddedc77286..ef5eb6bdaaf 100644
--- 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 f678630a76f..420d6024b7f 100644
--- 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.