Fix cursor position after eval in command-mode
This commit is contained in:
parent
c83c1ff05b
commit
05c6656774
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue