(tcl-hilit): New function from "Chris Alfeld" <calfeld@math.utah.edu>