* callint.c (quotify_arg, quotify_args): Now static.

diff --git a/src/ChangeLog b/src/ChangeLog
index 88d05b5..d87c1d0 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-03-16  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * callint.c (quotify_arg, quotify_args): Now static.
+
        * lisp.h (get_system_name, get_operating_system_release):
        Move decls here, to check interfaces.
        * process.c (get_operating_system_release): Move decl to lisp.h.

diff --git a/src/callint.c b/src/callint.c
index 21dd3cd..af9ee5b 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -118,7 +118,7 @@ usage: (interactive &optional ARGS)  */)
 
 /* Quotify EXP: if EXP is constant, return it.
    If EXP is not constant, return (quote EXP).  */
-Lisp_Object
+static Lisp_Object
 quotify_arg (register Lisp_Object exp)
 {
   if (!INTEGERP (exp) && !STRINGP (exp)
@@ -129,7 +129,7 @@ quotify_arg (register Lisp_Object exp)
 }
 
 /* Modify EXP by quotifying each element (except the first).  */
-Lisp_Object
+static Lisp_Object
 quotify_args (Lisp_Object exp)
 {
   register Lisp_Object tail;