Artifact
b88e7d6e376909bd384eaa8434de81490df2980665876f9511ab4c2dd8afed90:
Attachment "history-tclIndex-86.patch" to
ticket [8e666d7c95]
added by
kjnash
2024-02-03 17:19:20.
diff -Naur original/library/history.tcl patched/library/history.tcl
--- original/library/history.tcl 2024-01-18 17:18:18.000000000 +0000
+++ patched/library/history.tcl 2024-02-03 16:53:40.144116588 +0000
@@ -53,7 +53,7 @@
}
# Tricky stuff needed to make stack and errors come out right!
- tailcall apply {arglist {tailcall history {*}$arglist} ::tcl} $args
+ tailcall apply {arglist {tailcall ::tcl::history {*}$arglist} ::tcl} $args
}
# (unnamed) --
diff -Naur original/library/tclIndex patched/library/tclIndex
--- original/library/tclIndex 2024-01-18 17:18:18.000000000 +0000
+++ patched/library/tclIndex 2024-02-03 16:45:46.591373179 +0000
@@ -20,6 +20,7 @@
set auto_index(::auto_mkindex_parser::commandInit) [list source [file join $dir auto.tcl]]
set auto_index(::auto_mkindex_parser::fullname) [list source [file join $dir auto.tcl]]
set auto_index(history) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::history) [list source [file join $dir history.tcl]]
set auto_index(::tcl::HistAdd) [list source [file join $dir history.tcl]]
set auto_index(::tcl::HistKeep) [list source [file join $dir history.tcl]]
set auto_index(::tcl::HistClear) [list source [file join $dir history.tcl]]