Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.794
diff -u -u -r1.794 ChangeLog
--- ChangeLog	2002/01/15 21:47:27	1.794
+++ ChangeLog	2002/01/15 21:55:42
@@ -1,5 +1,10 @@
 2002-01-15  Don Porter <dgp@users.sourceforge.net>
 
+	* generic/tcl.decls (Tcl_RecordAndEval):
+	* generic/tclDecls.h: make genstubs
+	* generic/tclHistory.c (Tcl_RecordAndEval): Updated APIs in
+	generic/tclHistory.c according to the guidelines of TIP 27.
+
 	* doc/SetErrno.3 (Tcl_ErrnoMsg): Corrected documentation for
 	Tcl_ErrnoMsg; it takes an integer argument.  Thanks to Georgios
 	Petasis.  [Bug 468183]
Index: doc/RecordEval.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/RecordEval.3,v
retrieving revision 1.3
diff -u -u -r1.3 RecordEval.3
--- doc/RecordEval.3	2000/04/14 23:01:53	1.3
+++ doc/RecordEval.3	2002/01/15 21:55:43
@@ -22,7 +22,7 @@
 .AS Tcl_Interp *interp;
 .AP Tcl_Interp *interp in
 Tcl interpreter in which to evaluate command.
-.AP char *cmd in
+.AP "CONST char" *cmd in
 Command (or sequence of commands) to execute.
 .AP int flags in
 An OR'ed combination of flag bits.  TCL_NO_EVAL means record the
Index: generic/tcl.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.decls,v
retrieving revision 1.71
diff -u -u -r1.71 tcl.decls
--- generic/tcl.decls	2002/01/15 21:19:06	1.71
+++ generic/tcl.decls	2002/01/15 21:55:43
@@ -737,7 +737,7 @@
     void Tcl_ReapDetachedProcs(void)
 }
 declare 208 generic {
-    int Tcl_RecordAndEval(Tcl_Interp *interp, char *cmd, int flags)
+    int Tcl_RecordAndEval(Tcl_Interp *interp, CONST char *cmd, int flags)
 }
 declare 209 generic {
     int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags)
Index: generic/tclDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclDecls.h,v
retrieving revision 1.71
diff -u -u -r1.71 tclDecls.h
--- generic/tclDecls.h	2002/01/15 21:19:07	1.71
+++ generic/tclDecls.h	2002/01/15 21:55:44
@@ -678,7 +678,7 @@
 #endif /* __WIN32__ */
 /* 208 */
 EXTERN int		Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp, 
-				char * cmd, int flags));
+				CONST char * cmd, int flags));
 /* 209 */
 EXTERN int		Tcl_RecordAndEvalObj _ANSI_ARGS_((
 				Tcl_Interp * interp, Tcl_Obj * cmdPtr, 
@@ -1779,7 +1779,7 @@
 #ifdef MAC_TCL
     void *reserved207;
 #endif /* MAC_TCL */
-    int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); /* 208 */
+    int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmd, int flags)); /* 208 */
     int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */
     void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 210 */
     void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 211 */
Index: generic/tclHistory.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclHistory.c,v
retrieving revision 1.3
diff -u -u -r1.3 tclHistory.c
--- generic/tclHistory.c	1999/04/16 00:46:47	1.3
+++ generic/tclHistory.c	2002/01/15 21:55:44
@@ -42,7 +42,7 @@
 Tcl_RecordAndEval(interp, cmd, flags)
     Tcl_Interp *interp;		/* Token for interpreter in which command
 				 * will be executed. */
-    char *cmd;			/* Command to record. */
+    CONST char *cmd;		/* Command to record. */
     int flags;			/* Additional flags.  TCL_NO_EVAL means
 				 * only record: don't execute command.
 				 * TCL_EVAL_GLOBAL means use Tcl_GlobalEval
