Differences From Artifact [7e7f1c5e92]:
- File sample.tclshrc — part of check-in [12f1ef0408] at 1999-08-22 22:28:30 on branch trunk — Modified Files: README sample.tclshrc tclreadline.n.in tclreadlineSetup.tcl.in Added Files: Makefile.in tclreadline.c tclreadlineConfig.sh.in tclreadlineInit.tcl.in (user: johannes@zellner.org, size: 1357) [annotate] [blame] [check-ins using]
To Artifact [75407d3132]:
- File sample.tclshrc — part of check-in [32bab3b327] at 1999-08-22 23:09:39 on branch trunk — Modified Files: .tclshrc src/tclreadline/sample.tclshrc src/tclreadline/tclreadlineSetup.tcl.in Added Files: src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in (user: johannes@zellner.org, size: 1370) [annotate] [blame] [check-ins using]
1 2 | 1 2 3 4 5 6 7 8 9 10 | - + | #!/bin/sh # FILE: "/home/joze/src/tclreadline/sample.tclshrc" |
︙ | |||
18 19 20 21 22 23 24 | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | - + | # if {"" == [info procs cd]} { # catch {rename ::tclreadline::Cd ""} # rename cd ::tclreadline::Cd # proc cd {args} { # if {[catch {eval ::tclreadline::Cd $args} message]} { # puts stderr "$message" # } |
︙ |