* print.c (strout): Use const char* for arg PTR.

diff --git a/src/ChangeLog b/src/ChangeLog
index 8be43ce..fecd07d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -6,6 +6,7 @@
        * dired.c (file_name_completion_stat): Use DIRENTRY, not struct dirent.
        * fileio.c (read_non_regular, read_non_regular_quit): Pass Lisp_Object,
        as required by internal_condition_case_1.
+       * print.c (strout): Use const char* for arg PTR.
        * regex.c (bcmp_translate): Use RE_TRANSLATE_TYPE, not Lisp_Object.
        (analyse_first): Fix "const const".
        * sysdep.c (set_file_times): Use EMACS_TIME, not struct timeval.

diff --git a/src/print.c b/src/print.c
index 76ce467..ea00a90 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -350,7 +350,8 @@ printchar (unsigned int ch, Lisp_Object fun)
    to data in a Lisp string.  Otherwise that is not safe.  */
 
 static void
-strout (char *ptr, int size, int size_byte, Lisp_Object printcharfun, int multibyte)
+strout (const char *ptr, int size, int size_byte, Lisp_Object printcharfun,
+       int multibyte)
 {
   if (size < 0)
     size_byte = size = strlen (ptr);