Fix cursor position after eval in command-mode

2005-05-31 14:32:16 +00:00 · 2005-05-31 14:32:16 +00:00 · 05c6656774
parent c83c1ff05b
commit 05c6656774
1 changed files with 3 additions and 1 deletions
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@ -258,7 +258,9 @@
    ;; FIXME, use insert here
    (append-to-history! new-entry)
    (paint-result-window new-entry)
-    (refresh-result-window)))
+    (refresh-result-window)
+    (move-cursor command-buffer result-buffer)
+    (refresh-command-window)))

 (define (eval-command-in-scheme-mode command-line)
  (let ((viewer