[Tkabber-dev] r2164 - in trunk/tkabber-plugins: . otr/tclotr

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Nov 13 01:07:52 MSK 2014


Author: sergei
Date: 2014-11-13 01:07:52 +0300 (Thu, 13 Nov 2014)
New Revision: 2164

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/otr/tclotr/otr.tcl
Log:
	* otr/tclotr/otr.tcl: Evaluate external callback procedures at the top
	  stack level.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2014-11-02 06:08:56 UTC (rev 2163)
+++ trunk/tkabber-plugins/ChangeLog	2014-11-12 22:07:52 UTC (rev 2164)
@@ -1,3 +1,8 @@
+2014-11-12  Sergei Golovan <sgolovan at nes.ru>
+
+	* otr/tclotr/otr.tcl: Evaluate external callback procedures at the top
+	  stack level.
+
 2014-11-02  Sergei Golovan <sgolovan at nes.ru>
 
 	* otr/otr.tcl, otr/auth.tcl: Got rid of avoidable [eval] calls,

Modified: trunk/tkabber-plugins/otr/tclotr/otr.tcl
===================================================================
--- trunk/tkabber-plugins/otr/tclotr/otr.tcl	2014-11-02 06:08:56 UTC (rev 2163)
+++ trunk/tkabber-plugins/otr/tclotr/otr.tcl	2014-11-12 22:07:52 UTC (rev 2164)
@@ -1616,7 +1616,7 @@
     upvar 0 $token state
 
     foreach cmd $state(${op}commands) {
-        {*}$cmd {*}$args
+        uplevel #0 $cmd $args
     }
     return
 }



More information about the Tkabber-dev mailing list