From da9f65fee8b4b0810450ee69254c43eff279e895 Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 27 Sep 2005 16:36:16 +0000 Subject: [PATCH] Fix binding part of darcs patch Thu Sep 22 19:38:41 EEST 2005 Martin Gasbichler --- scheme/nuit-engine.scm | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm index c9b47bf..2ce3627 100644 --- a/scheme/nuit-engine.scm +++ b/scheme/nuit-engine.scm @@ -288,21 +288,21 @@ (define (eval-command-in-scheme-mode command-line) (if (scheme-command-line? command-line) (process-scheme-command command-line) - (let ((viewer - (find/init-plugin-for-result - (eval-string command-line))) - (new-entry - (make-history-entry command-line '() viewer))) - ;; #### shouldn't we use some kind of insertion here? - (append-to-history! new-entry) - (signal-result-buffer-object-change) - (obtain-lock paint-lock) - (paint-active-command-window) - (paint-result-window new-entry) - (refresh-result-window) - (move-cursor (command-buffer) (result-buffer)) - (refresh-command-window) - (release-lock paint-lock)))) + (let* ((viewer + (find/init-plugin-for-result + (eval-string command-line))) + (new-entry + (make-history-entry command-line '() viewer))) + ;; #### shouldn't we use some kind of insertion here? + (append-to-history! new-entry) + (signal-result-buffer-object-change) + (obtain-lock paint-lock) + (paint-active-command-window) + (paint-result-window new-entry) + (refresh-result-window) + (move-cursor (command-buffer) (result-buffer)) + (refresh-command-window) + (release-lock paint-lock)))) ;; #### crufty, and a very dumb idea (define split-command-line string-tokenize)