scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix binding 

part of darcs patch Thu Sep 22 19:38:41 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:36:16 +00:00
parent ae9052aeaf
commit da9f65fee8
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
scheme/nuit-engine.scm
View File

@ -288,21 +288,21 @@
(define (eval-command-in-scheme-mode command-line) (define (eval-command-in-scheme-mode command-line)
(if (scheme-command-line? command-line) (if (scheme-command-line? command-line)
(process-scheme-command command-line) (process-scheme-command command-line)
(let ((viewer (let* ((viewer
(find/init-plugin-for-result (find/init-plugin-for-result
(eval-string command-line))) (eval-string command-line)))
(new-entry (new-entry
(make-history-entry command-line '() viewer))) (make-history-entry command-line '() viewer)))
;; #### 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)
(signal-result-buffer-object-change) (signal-result-buffer-object-change)
(obtain-lock paint-lock) (obtain-lock paint-lock)
(paint-active-command-window) (paint-active-command-window)
(paint-result-window new-entry) (paint-result-window new-entry)
(refresh-result-window) (refresh-result-window)
(move-cursor (command-buffer) (result-buffer)) (move-cursor (command-buffer) (result-buffer))
(refresh-command-window) (refresh-command-window)
(release-lock paint-lock)))) (release-lock paint-lock))))
;; #### crufty, and a very dumb idea ;; #### crufty, and a very dumb idea
(define split-command-line string-tokenize) (define split-command-line string-tokenize)