Posted to tcl by schelte at Wed Dec 15 23:02:47 GMT 2010view pretty

#!/usr/bin/tclsh
package require Expect

spawn more /etc/inputrc
expect {
    -- {--More--} {
        send " "
        exp_continue
    }
    {>}
}