# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026848914 0
# Node ID 19db29628f09912c92a232d1fa3f0f8c185a8f29
# Parent  9648dbb4974e7cc5dd04ede5155e9f02ee3550a4
(cmd_error_internal): Use const for pointer to lisp
string data.

diff -r 9648dbb4974e -r 19db29628f09 src/keyboard.c
--- a/src/keyboard.c	Tue Jul 16 19:48:28 2002 +0000
+++ b/src/keyboard.c	Tue Jul 16 19:48:34 2002 +0000
@@ -1209,7 +1209,7 @@
 	 *Messages*.  */
       if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function))
 	{
-	  char *name = SDATA (SYMBOL_NAME (Vsignaling_function));
+	  const char *name = SDATA (SYMBOL_NAME (Vsignaling_function));
 	  message_dolog (name, strlen (name), 0, 0);
 	  message_dolog (": ", 2, 0, 0);
 	  Vsignaling_function = Qnil;