05/08: gurses: Update the cursor position when posting the form.

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit 7cf63cf5879affd8e44af8db2e722197c47b897c
Author: John Darrington <address@hidden>
Date:   Mon Feb 6 20:00:35 2017 +0100

    gurses: Update the cursor position when posting the form.
    
    * gurses/form.scm (form-post): Update the cursor before returning.
---
 gurses/form.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gurses/form.scm b/gurses/form.scm
index efc03cd..c4adb3b 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -311,7 +311,9 @@ label eq? to N"
       (if (array-in-bounds? fields pos)
          (let ((f (array-ref fields pos)))
             (draw-field-space win f pos xpos)
-           (loop fields (1+ pos)))))))
+           (loop fields (1+ pos))))))
+
+    (form-update-cursor form))
 
 (define (get-current-field form)
   (array-ref (form-items form) (form-current-item form)))