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

Make the initial-command-buffer-mode into an option 

part of darcs patch Sat Sep 17 19:20:29 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 08:58:30 +00:00
parent 9da995f4cd
commit 2ba820f63a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/nuit-engine.scm
View File

@ -1,5 +1,3 @@
(define initial-command-mode 'command)
(define-syntax when
(syntax-rules ()
((_ ?test ?do-this ...)
@ -29,7 +27,9 @@
(define-option 'main 'switch-command-buffer-mode-key key-f7)
;; mode of the command buffer
(define *command-buffer-mode* initial-command-mode)
(define-option 'main 'initial-command-mode 'command)
(define *command-buffer-mode*)
(define (command-buffer-in-scheme-mode?)
(eq? *command-buffer-mode* 'scheme))
@ -321,7 +321,8 @@
(init-screen)
(init-windows!)
(read-config-file!)
(set! *command-buffer-mode* (config 'main 'initial-command-mode))
(clear)
(if (not (process-group-leader?))