diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-13 08:57:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-13 08:57:12 (GMT) |
commit | e80a9647f5b435daaa052bbe487314a47794fdca (patch) | |
tree | d106c4c491093a055990c1b43af9b1d3eca0458f /library/history.tcl | |
parent | f6f180df58c8c736937a105dbb2cdac6755f7c13 (diff) | |
download | tcl-e80a9647f5b435daaa052bbe487314a47794fdca.zip tcl-e80a9647f5b435daaa052bbe487314a47794fdca.tar.gz tcl-e80a9647f5b435daaa052bbe487314a47794fdca.tar.bz2 |
Use tabs for indenting in stead of 8 spaces
Diffstat (limited to 'library/history.tcl')
-rw-r--r-- | library/history.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/history.tcl b/library/history.tcl index f06ffc9..79b7604 100644 --- a/library/history.tcl +++ b/library/history.tcl @@ -197,7 +197,7 @@ proc ::tcl::HistInfo {{count {}}} { if {![info exists history($i)]} { continue } - set cmd [string map [list \n \n\t] [string trimright $history($i) \ \n]] + set cmd [string map [list \n \n\t] [string trimright $history($i) \ \n]] append result $newline[format "%6d %s" $i $cmd] set newline \n } |