Fix cursor position after eval in Scheme mode.
This commit is contained in:
parent
05c6656774
commit
243e746136
|
@ -274,7 +274,9 @@
|
||||||
;; #### shouldn't we use some kind of insertion here?
|
;; #### shouldn't we use some kind of insertion 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))))
|
||||||
|
|
||||||
;; #### crufty
|
;; #### crufty
|
||||||
(define split-command-line string-tokenize)
|
(define split-command-line string-tokenize)
|
||||||
|
|
Loading…
Reference in New Issue