Constify functions taking char *

* alloc.c (pending_malloc_warning, malloc_warning): Add const.
* callproc.c (relocate_fd, getenv_internal_1, getenv_internal)
(egetenv): Likewise.
* doprnt.c (doprnt): Likewise.
* editfns.c (set_time_zone_rule, format2): Likewise.
* emacs.c (decode_env_path): Likewise.
* eval.c (signal_error, error): Likewise.
* insdel.c (replace_range_2): Likewise.
* keyboard.c (cmd_error_internal): Likewise.
* lread.c (isfloat_string, make_symbol, dir_warning): Likewise.
* print.c (write_string, write_string_1, print_error_message):
Likewise.
* vm-limit.c (warn_function, memory_warnings): Likewise.
* xdisp.c (message1, message1_nolog, message_with_string)
(vmessage, message, message_nolog): Likewise.
* emacs.c: Remove duplicate declaration.
* keyboard.h: Likewise.
* lisp.h: Update prototypes.

1 files changed, 8 insertions, 6 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 674243f50de..e78d1a9aeaa 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1291,9 +1291,9 @@ relocate_fd (int fd, int minfd)
       int new = dup (fd);
       if (new == -1)
         {
-          char *message1 = "Error while setting up child: ";
-          char *errmessage = strerror (errno);
-          char *message2 = "\n";
+          const char *message1 = "Error while setting up child: ";
+          const char *errmessage = strerror (errno);
+          const char *message2 = "\n";
           emacs_write (2, message1, strlen (message1));
           emacs_write (2, errmessage, strlen (errmessage));
           emacs_write (2, message2, strlen (message2));
@@ -1308,7 +1308,8 @@ relocate_fd (int fd, int minfd)
 }
 
 static int
-getenv_internal_1 (char *var, int varlen, char **value, int *valuelen, Lisp_Object env)
+getenv_internal_1 (const char *var, int varlen, char **value, int *valuelen,
+                   Lisp_Object env)
 {
   for (; CONSP (env); env = XCDR (env))
     {
@@ -1342,7 +1343,8 @@ getenv_internal_1 (char *var, int varlen, char **value, int *valuelen, Lisp_Obje
 }
 
 static int
-getenv_internal (char *var, int varlen, char **value, int *valuelen, Lisp_Object frame)
+getenv_internal (const char *var, int varlen, char **value, int *valuelen,
+                 Lisp_Object frame)
 {
   /* Try to find VAR in Vprocess_environment first.  */
   if (getenv_internal_1 (var, varlen, value, valuelen,
@@ -1403,7 +1405,7 @@ If optional parameter ENV is a list, then search this list instead of
 /* A version of getenv that consults the Lisp environment lists,
    easily callable from C.  */
 char *
-egetenv (char *var)
+egetenv (const char *var)
 {
   char *value;
   int valuelen;