mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-21 10:24:55 +00:00
Code Issues Releases Activity

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

Browse Source 
(backtrace_list, lisp_eval_depth, when_entered_debugger): Now static.
* lisp.h (backtrace_list): Remove decl.
This commit is contained in:
Paul Eggert 2011-04-13 15:53:58 -07:00
parent 35f08c383e
commit 57a96f5c91
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ChangeLog
View File

@ -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):

6
src/eval.c
View File

@ -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. */

2
src/lisp.h
View File

@ -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.