Rename command ::safe::SetAutoPathSync to ::safe::setAutoPathSync and add to library/tclIndex.

2 files changed, 9 insertions, 8 deletions

diff --git a/library/safe.tcl b/library/safe.tcl
index a1fadb1..474dd01 100644
--- a/library/safe.tcl
+++ b/library/safe.tcl
@@ -326,7 +326,7 @@ proc ::safe::InterpCreate {
 #
 #    It is the caller's responsibility, if it supplies a non-empty value for
 #    access_path, to make the first directory in the path suitable for use as
-#    tcl_library, and (if ![SetAutoPathSync]), to set the slave's ::auto_path.
+#    tcl_library, and (if ![setAutoPathSync]), to set the slave's ::auto_path.
 
 proc ::safe::InterpSetConfig {slave access_path staticsok nestedok deletehook autoPath withAutoPath} {
     global auto_path
@@ -404,9 +404,9 @@ if {[info exists state(access_path,map)]} {
 
     # Set the slave auto_path to a tokenized raw_auto_path.
     # Silently ignore any directories that are not in the access path.
-    # If [SetAutoPathSync], SyncAccessPath will overwrite this value with the
+    # If [setAutoPathSync], SyncAccessPath will overwrite this value with the
     # full access path.
-    # If ![SetAutoPathSync], Safe Base code will not change this value.
+    # If ![setAutoPathSync], Safe Base code will not change this value.
     set tokens_auto_path {}
     foreach dir $raw_auto_path {
 	if {[dict exists $remap_access_path $dir]} {
@@ -1242,9 +1242,9 @@ proc ::safe::Setup {} {
     return
 }
 
-# Accessor method for ::safe::SetAutoPathSync
-# Usage: ::safe::SetAutoPathSync ?newValue?
-# Respond to changes by calling Setup again, precerving any
+# Accessor method for ::safe::AutoPathSync
+# Usage: ::safe::setAutoPathSync ?newValue?
+# Respond to changes by calling Setup again, preserving any
 # caller-defined logging.  This allows complete equivalence with
 # prior Safe Base behavior if AutoPathSync is true.
 #
@@ -1256,7 +1256,7 @@ proc ::safe::Setup {} {
 # (The initialization of AutoPathSync at the end of this file is acceptable
 #  because Setup has not yet been called.)
 
-proc ::safe::SetAutoPathSync {args} {
+proc ::safe::setAutoPathSync {args} {
     variable AutoPathSync
 
     if {[llength $args] == 0} {
@@ -1279,7 +1279,7 @@ proc ::safe::SetAutoPathSync {args} {
             setLogCmd $TmpLog
         }
     } else {
-        set msg {wrong # args: should be "safe::SetAutoPathSync ?newValue?"}
+        set msg {wrong # args: should be "safe::setAutoPathSync ?newValue?"}
         return -code error $msg
     }
 
diff --git a/library/tclIndex b/library/tclIndex
index 0409d9b..0d2db02 100644
--- a/library/tclIndex
+++ b/library/tclIndex
@@ -61,6 +61,7 @@ set auto_index(::safe::DirInAccessPath) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::Subset) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::AliasSubset) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::AliasEncoding) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::setAutoPathSync) [list source [file join $dir safe.tcl]]
 set auto_index(tcl_wordBreakAfter) [list source [file join $dir word.tcl]]
 set auto_index(tcl_wordBreakBefore) [list source [file join $dir word.tcl]]
 set auto_index(tcl_endOfWord) [list source [file join $dir word.tcl]]