Index: external/tcl/tcl.h
===================================================================
--- external/tcl/tcl.h	(revision 966e2e4d4b73a83f5454cf0eb8cb40e1ceb86ae9)
+++ external/tcl/tcl.h	(revision 4af92f50b3e582cec9b28132158b201ec9ffc8d7)
@@ -679,13 +679,4 @@
 
 #define TCL_EXACT	1
-
-/*
- * Flag values passed to Tcl_RecordAndEval.
- * WARNING: these bit choices must not conflict with the bit choices
- * for evalFlag bits in tclInt.h!!
- */
-
-#define TCL_NO_EVAL		0x10000
-#define TCL_EVAL_GLOBAL		0x20000
 
 /*
@@ -1411,8 +1402,4 @@
 	        	    char *bufPtr, int toRead));
 EXTERN void		Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
-EXTERN int		Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp *interp,
-			    char *cmd, int flags));
-EXTERN int		Tcl_RecordAndEvalObj _ANSI_ARGS_((Tcl_Interp *interp,
-			    Tcl_Obj *cmdPtr, int flags));
 EXTERN Tcl_RegExp	Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp *interp,
 			    char *string));
Index: external/tcl/tclHistory.c
===================================================================
--- external/tcl/tclHistory.c	(revision 966e2e4d4b73a83f5454cf0eb8cb40e1ceb86ae9)
+++ 	(revision )
@@ -1,157 +1,0 @@
-/* 
- * tclHistory.c --
- *
- *	This module and the Tcl library file history.tcl together implement
- *	Tcl command history. Tcl_RecordAndEval(Obj) can be called to record
- *	commands ("events") before they are executed. Commands defined in
- *	history.tcl may be used to perform history substitutions.
- *
- * Copyright (c) 1990-1993 The Regents of the University of California.
- * Copyright (c) 1994-1997 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclHistory.c,v 1.1 2008-06-04 13:58:06 demin Exp $
- */
-
-#include "tclInt.h"
-#include "tclPort.h"
-
-
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_RecordAndEval --
- *
- *	This procedure adds its command argument to the current list of
- *	recorded events and then executes the command by calling
- *	Tcl_Eval.
- *
- * Results:
- *	The return value is a standard Tcl return value, the result of
- *	executing cmd.
- *
- * Side effects:
- *	The command is recorded and executed.
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tcl_RecordAndEval(interp, cmd, flags)
-    Tcl_Interp *interp;		/* Token for interpreter in which command
-				 * will be executed. */
-    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
-				 * instead of Tcl_Eval. */
-{
-    register Tcl_Obj *cmdPtr;
-    int length = strlen(cmd);
-    int result;
-
-    if (length > 0) {
-	/*
-	 * Call Tcl_RecordAndEvalObj to do the actual work.
-	 */
-
-	TclNewObj(cmdPtr);
-	TclInitStringRep(cmdPtr, cmd, length);
-	Tcl_IncrRefCount(cmdPtr);
-
-	result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags);
-
-	/*
-	 * Move the interpreter's object result to the string result, 
-	 * then reset the object result.
-	 * FAILS IF OBJECT RESULT'S STRING REPRESENTATION CONTAINS NULLS.
-	 */
-
-	Tcl_SetResult(interp,
-	        TclGetStringFromObj(Tcl_GetObjResult(interp), (int *) NULL),
-	        TCL_VOLATILE);
-
-	/*
-	 * Discard the Tcl object created to hold the command.
-	 */
-	
-	Tcl_DecrRefCount(cmdPtr);	
-    } else {
-	/*
-	 * An empty string. Just reset the interpreter's result.
-	 */
-
-	Tcl_ResetResult(interp);
-	result = TCL_OK;
-    }
-    return result;
-}
-
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_RecordAndEvalObj --
- *
- *	This procedure adds the command held in its argument object to the
- *	current list of recorded events and then executes the command by
- *	calling Tcl_EvalObj.
- *
- * Results:
- *	The return value is a standard Tcl return value, the result of
- *	executing the command.
- *
- * Side effects:
- *	The command is recorded and executed.
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tcl_RecordAndEvalObj(interp, cmdPtr, flags)
-    Tcl_Interp *interp;		/* Token for interpreter in which command
-				 * will be executed. */
-    Tcl_Obj *cmdPtr;		/* Points to object holding the command to
-				 * record and execute. */
-    int flags;			/* Additional flags. TCL_NO_EVAL means
-				 * record only: don't execute the command.
-				 * TCL_EVAL_GLOBAL means use
-				 * Tcl_GlobalEvalObj instead of
-				 * Tcl_EvalObj. */
-{
-    Interp *iPtr = (Interp *) interp;
-    int result;
-    Tcl_Obj *list[3];
-    register Tcl_Obj *objPtr;
-
-    /*
-     * Do recording by eval'ing a tcl history command: history add $cmd.
-     */
-
-    list[0] = Tcl_NewStringObj("history", -1);
-    list[1] = Tcl_NewStringObj("add", -1);
-    list[2] = cmdPtr;
-    
-    objPtr = Tcl_NewListObj(3, list);
-    Tcl_IncrRefCount(objPtr);
-    (void) Tcl_GlobalEvalObj(interp, objPtr);
-    Tcl_DecrRefCount(objPtr);
-
-    /*
-     * Execute the command.
-     */
-
-    result = TCL_OK;
-    if (!(flags & TCL_NO_EVAL)) {
-	iPtr->evalFlags = (flags & ~TCL_EVAL_GLOBAL);
-	if (flags & TCL_EVAL_GLOBAL) {
-	    result = Tcl_GlobalEvalObj(interp, cmdPtr);
-	} else {
-	    result = Tcl_EvalObj(interp, cmdPtr);
-	}
-    }
-    return result;
-}
