From fa5a08ace78835f16813926132ff9181a2c5c0ba Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 27 Sep 2005 08:44:56 +0000 Subject: [PATCH] Default for command-buffer-mode is command part of darcs patch Fri Sep 16 23:02:43 EEST 2005 Martin Gasbichler --- scheme/nuit-engine.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm index a21e686..c49033d 100644 --- a/scheme/nuit-engine.scm +++ b/scheme/nuit-engine.scm @@ -1,3 +1,5 @@ +(define initial-command-mode 'command) + (define-syntax when (syntax-rules () ((_ ?test ?do-this ...) @@ -15,7 +17,7 @@ val))))) ;; mode of the command buffer -(define *command-buffer-mode* 'scheme) +(define *command-buffer-mode* initial-command-mode) (define (command-buffer-in-scheme-mode?) (eq? *command-buffer-mode* 'scheme))