+++ /dev/null
-# key bindings for DCT, by Shiar
-
-# 1.10.1 200410150045 - set initial value to prevent crash when no undos set
-# 1.10.0 200410150000 - single-level undo from main
-
-use strict;
-use warnings;
-
-my $undo = [];
-
-push @{$hook{preaction}}, sub {
- $undo = [@stack] if $_[0]>=0; # type>=0 for stack-modifying operations
-}; # preaction
-
-$action{undo} = [-1, sub { ($undo, @stack) = ([@stack], @$undo) }]; # undo/redo
-
-return {
- author => "Shiar",
- title => "simple undo",
- version => "1.10.1",
-};
-