Fix cursor position after eval in Scheme mode.

2005-05-31 14:33:43 +00:00 · 2005-05-31 14:33:43 +00:00 · 243e746136
parent 05c6656774
commit 243e746136
1 changed files with 3 additions and 1 deletions
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@ -274,7 +274,9 @@
      ;; #### shouldn't we use some kind of insertion 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))))

 ;; #### crufty
 (define split-command-line string-tokenize)