Merge 8.6. "parenright" -> ")" (simply since we can ....)

tcltk · Jan 8, 2024 · fa95ec5 · fa95ec5
2 parents d0a67ec + 09b7238
commit fa95ec5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/library/console.tcl b/library/console.tcl
@@ -622,7 +622,7 @@ proc ::tk::ConsoleBind {w} {
     ##
     ## Bindings for doing special things based on certain keys
     ##
-    bind PostConsole <parenright> {
+    bind PostConsole <)> {
 	if {"\\" ne [%W get insert-2c]} {
 	    ::tk::console::MatchPair %W \( \) promptEnd
 	}

diff --git a/tests/bell.test b/tests/bell.test
@@ -28,7 +28,7 @@ test bell-1.4 {bell command} -body {
 
 test bell-1.5 {bell command} -body {
     bell -nice -nice -nice
-} -returnCodes {ok} -result {}  ;#keep -result {} and -retutnCodes {ok} for clarity?
+} -returnCodes {ok} -result {}  ;#keep -result {} and -returnCodes {ok} for clarity?
 
 test bell-1.6 {bell command} -body {
     bell -displayof . -nice