diff options
| -rw-r--r-- | src/uitext.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/uitext.ml b/src/uitext.ml index 11eedae..c17b52c 100644 --- a/src/uitext.ml +++ b/src/uitext.ml @@ -513,7 +513,9 @@ let interact prilist rilist = (["i"], ("invert direction of propagation and go to next item"), (fun () -> - actOnMatching invertdir)); + actOnMatching + ~fail:(Some (fun()->display "Cannot invert direction\n")) + invertdir)); (["/";":"], ("skip"), (fun () -> |