plugin updates

1 files changed, 9 insertions, 9 deletions

diff --git a/library/history.tcl b/library/history.tcl
index a6beb43..f1516f3 100644
--- a/library/history.tcl
+++ b/library/history.tcl
@@ -19,7 +19,7 @@
 
 namespace eval tcl {
     variable history
-    if ![info exists history] {
+    if {![info exists history]} {
 	array set history {
 	    nextid	0
 	    keep	20
@@ -118,7 +118,7 @@ proc history {args} {
 		return [tcl::HistKeep]
 	    } else {
 		set limit [lindex $args 1]
-		if {[catch {expr $limit}] || ($limit < 0)} {
+		if {[catch {expr {~$limit}}] || ($limit < 0)} {
 		    return -code error "illegal keep count \"$limit\""
 		}
 		return [tcl::HistKeep $limit]
@@ -132,7 +132,7 @@ proc history {args} {
 	    if {![string match $key* nextid]} {
 		return -code error "bad option \"$key\": must be $options"
 	    }
-	    return [expr $tcl::history(nextid) + 1]
+	    return [expr {$tcl::history(nextid) + 1}]
 	}
 	r* { # history redo
 
@@ -196,7 +196,7 @@ proc history {args} {
 	return $history(keep)
     } else {
 	set oldold $history(oldest)
-	set history(oldest) [expr $history(nextid) - $limit]
+	set history(oldest) [expr {$history(nextid) - $limit}]
 	for {} {$oldold <= $history(oldest)} {incr oldold} {
 	    if {[info exists history($oldold)]} {unset history($oldold)}
 	}
@@ -241,13 +241,13 @@ proc history {args} {
  proc tcl::HistInfo {{num {}}} {
     variable history
     if {$num == {}} {
-	set num [expr $history(keep) + 1]
+	set num [expr {$history(keep) + 1}]
     }
     set result {}
     set newline ""
-    for {set i [expr $history(nextid) - $num + 1]} \
+    for {set i [expr {$history(nextid) - $num + 1}]} \
 	    {$i <= $history(nextid)} {incr i} {
-	if ![info exists history($i)] {
+	if {![info exists history($i)]} {
 	    continue
 	}
 	set cmd [string trimright $history($i) \ \n]
@@ -304,7 +304,7 @@ proc history {args} {
 
  proc tcl::HistIndex {event} {
     variable history
-    if {[catch {expr $event}]} {
+    if {[catch {expr {~$event}}]} {
 	for {set i $history(nextid)} {[info exists history($i)]} {incr i -1} {
 	    if {[string match $event* $history($i)]} {
 		return $i;
@@ -315,7 +315,7 @@ proc history {args} {
 	}
 	return -code error "no event matches \"$event\""
     } elseif {$event <= 0} {
-	set i [expr $history(nextid) + $event]
+	set i [expr {$history(nextid) + $event}]
     } else {
 	set i $event
     }