Fix cursor position after eval in command-mode

This commit is contained in:
eknauel 2005-05-31 14:32:16 +00:00
parent c83c1ff05b
commit 05c6656774
1 changed files with 3 additions and 1 deletions

View File

@ -258,7 +258,9 @@
;; FIXME, use insert here ;; FIXME, use insert here
(append-to-history! new-entry) (append-to-history! new-entry)
(paint-result-window 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) (define (eval-command-in-scheme-mode command-line)
(let ((viewer (let ((viewer