2014-08-27 11:53:00

1 files changed, 13 insertions, 0 deletions

diff --git a/tex/context/base/util-seq.lua b/tex/context/base/util-seq.lua
index 35e693285..4dd9ddc33 100644
--- a/tex/context/base/util-seq.lua
+++ b/tex/context/base/util-seq.lua
@@ -31,6 +31,7 @@ local functions      = allocate()
 sequencers.functions = functions
 
 local removevalue       = tables.removevalue
+local replacevalue      = tables.replacevalue
 local insertaftervalue  = tables.insertaftervalue
 local insertbeforevalue = tables.insertbeforevalue
 
@@ -189,6 +190,18 @@ function sequencers.removeaction(t,group,action,force)
     end
 end
 
+function sequencers.replaceaction(t,group,oldaction,newaction,force)
+    t = known[t]
+    if t then
+        local g = t.list[group]
+        if g and (force or validaction(oldaction)) then
+            replacevalue(g,oldaction,newaction)
+            t.dirty  = true
+            t.runner = nil
+        end
+    end
+end
+
 local function localize(str)
     return (gsub(str,"[%.: ]+","_"))
 end