diff options
| author | G.raud <graud@gmx.com> | 2018-01-27 22:14:05 +0100 |
|---|---|---|
| committer | G.raud <graud@gmx.com> | 2018-01-28 07:15:54 +0100 |
| commit | 5d9fa21c94f90bb315d73826bca21be10319daac (patch) | |
| tree | ec1911ca189649e330190f4c3b3ddf7f70150cf4 /src | |
| parent | e91716a0e6a28eecbdae6b39eab1ec59e10df7df (diff) | |
| download | unison-5d9fa21c94f90bb315d73826bca21be10319daac.zip unison-5d9fa21c94f90bb315d73826bca21be10319daac.tar.gz unison-5d9fa21c94f90bb315d73826bca21be10319daac.tar.bz2 | |
Uitext: add a "go back" option to the "proceed" prompt
To restart the selection process from the bottom.
Diffstat (limited to 'src')
| -rw-r--r-- | src/uitext.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/uitext.ml b/src/uitext.ml index f542afe..e6b1c2f 100644 --- a/src/uitext.ml +++ b/src/uitext.ml @@ -665,6 +665,14 @@ let rec interactAndPropagateChanges prevItemList reconItemList Prefs.set Uicommon.auto false; newLine(); interactAndPropagateChanges [] newReconItemList)); + (["p";"b"], + "go back to the last item of the selection", + (fun () -> + Prefs.set Uicommon.auto false; + newLine(); + match Safelist.rev newReconItemList with + [] -> interactAndPropagateChanges [] [] + | lastri::prev -> interactAndPropagateChanges prev [lastri])); (["q"], ("exit " ^ Uutil.myName ^ " without propagating any changes"), fun () -> raise Sys.Break) |