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