From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 19:48:34 +0000 (+0000)
Subject: (cmd_error_internal): Use const for pointer to lisp
X-Git-Tag: ttn-vms-21-2-B4~14049
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91befd0e2c6938fc3b94a706613ddfbae94a43f8;p=emacs.git

(cmd_error_internal): Use const for pointer to lisp
string data.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 14f21cbe12b..db4ebd1635f 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1209,7 +1209,7 @@ cmd_error_internal (data, context)
 	 *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;