mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(print_depth, new_backquote_output, being_printed, print_buffer):
(print_buffer_size, print_buffer_pos, print_buffer_pos_byte):
(print_interval, print_number_index, initial_stderr_stream):
Now static.
* lisp.h (Fprinc): Remove decl.
(debug_output_compilation_hack): Mark as externally visible.
This commit is contained in:
Paul Eggert 2011-04-13 19:04:54 -07:00
parent adddb2655c
commit ad64fc978b
3 changed files with 20 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ChangeLog
View file

@ -1,5 +1,13 @@
2011-04-14 Paul Eggert <eggert@cs.ucla.edu>
* print.c: Make symbols static if they're not exported.
(print_depth, new_backquote_output, being_printed, print_buffer):
(print_buffer_size, print_buffer_pos, print_buffer_pos_byte):
(print_interval, print_number_index, initial_stderr_stream):
Now static.
* lisp.h (Fprinc): Remove decl.
(debug_output_compilation_hack): Mark as externally visible.
* sysdep.c (croak): Move decl from here to syssignal.h.
* syssignal.h (croak): Put it here, so the API can be checked when
'croak' is called from dissociate_if_controlling_tty.

3
src/lisp.h
View file

@ -2748,13 +2748,12 @@ extern void debug_print (Lisp_Object) EXTERNALLY_VISIBLE;
extern void safe_debug_print (Lisp_Object) EXTERNALLY_VISIBLE;
EXFUN (Fprin1, 2);
EXFUN (Fprin1_to_string, 2);
EXFUN (Fprinc, 2);
EXFUN (Fterpri, 1);
EXFUN (Fprint, 2);
EXFUN (Ferror_message_string, 1);
extern Lisp_Object Qstandard_output;
extern Lisp_Object Qexternal_debugging_output;
extern void debug_output_compilation_hack (int);
extern void debug_output_compilation_hack (int) EXTERNALLY_VISIBLE;
extern void temp_output_buffer_setup (const char *);
extern int print_level;
extern Lisp_Object Qprint_escape_newlines;

22
src/print.c
View file

@ -58,25 +58,25 @@ static Lisp_Object Qfloat_output_format;
#endif
/* Avoid actual stack overflow in print. */
int print_depth;
static int print_depth;
/* Level of nesting inside outputting backquote in new style. */
int new_backquote_output;
static int new_backquote_output;
/* Detect most circularities to print finite output. */
#define PRINT_CIRCLE 200
Lisp_Object being_printed[PRINT_CIRCLE];
static Lisp_Object being_printed[PRINT_CIRCLE];
/* When printing into a buffer, first we put the text in this
block, then insert it all at once. */
char *print_buffer;
static char *print_buffer;
/* Size allocated in print_buffer. */
EMACS_INT print_buffer_size;
static EMACS_INT print_buffer_size;
/* Chars stored in print_buffer. */
EMACS_INT print_buffer_pos;
static EMACS_INT print_buffer_pos;
/* Bytes stored in print_buffer. */
EMACS_INT print_buffer_pos_byte;
static EMACS_INT print_buffer_pos_byte;
Lisp_Object Qprint_escape_newlines;
static Lisp_Object Qprint_escape_multibyte, Qprint_escape_nonascii;
@ -89,8 +89,8 @@ static Lisp_Object Qprint_escape_multibyte, Qprint_escape_nonascii;
N the object has been printed so we can refer to it as #N#.
print_number_index holds the largest N already used.
N has to be striclty larger than 0 since we need to distinguish -N. */
int print_number_index;
void print_interval (INTERVAL interval, Lisp_Object printcharfun);
static int print_number_index;
static void print_interval (INTERVAL interval, Lisp_Object printcharfun);
/* GDB resets this to zero on W32 to disable OutputDebugString calls. */
int print_output_debug_flag EXTERNALLY_VISIBLE = 1;
@ -636,7 +636,7 @@ A printed representation of an object is text which describes that object. */)
return unbind_to (count, object);
}
DEFUE ("princ", Fprinc, Sprinc, 1, 2, 0,
DEFUN ("princ", Fprinc, Sprinc, 1, 2, 0,
doc: /* Output the printed representation of OBJECT, any Lisp object.
No quoting characters are used; no delimiters are printed around
the contents of strings.
@ -751,7 +751,7 @@ debug_output_compilation_hack (int x)
#define WITH_REDIRECT_DEBUGGING_OUTPUT 1
FILE *initial_stderr_stream = NULL;
static FILE *initial_stderr_stream = NULL;
DEFUN ("redirect-debugging-output", Fredirect_debugging_output, Sredirect_debugging_output,
1, 2,