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

diff --git a/src/ChangeLog b/src/ChangeLog
index 8be43ce844b388d9170abf0ea9a6377079a56348..fecd07da9554de1103fd4555918ecaab6cb3affd 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 76ce467eed0fe794ab5683b3481f346751dd8c4f..ea00a90d37b3762d443a16df7a773666e9479941 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);