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

diff --git a/src/ChangeLog b/src/ChangeLog
index 37225e11f763e3a3a63d13e69fee62f59ee457c9..78d3f0dacd212e270de65ee64fdfc2d4f933b66e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/lisp.h b/src/lisp.h
index 288f08e37ce06bcb9b15837c71a8b9224b497284..718f590b55a7feee1629c55e27157bdf5c0ee441 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -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;

diff --git a/src/print.c b/src/print.c
index 820405559210b93f0e6f9b00034aa6c41684e8a3..8bc8f98ccee3a03ee6584f0c9d798fc32be32398 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -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,