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

For the Scheme mode, use the expression as command 

part of darcs patch Sun Sep 18 13:15:34 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 09:00:43 +00:00
parent 2ff942c985
commit 75b30febc8
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/nuit-engine.scm
View File

@ -237,11 +237,8 @@
(let ((viewer (let ((viewer
(find/init-plugin-for-result (find/init-plugin-for-result
(eval-string command-line)))) (eval-string command-line))))
(let* ((tokens (split-command-line command-line)) (let ((new-entry
(command (car tokens)) (make-history-entry command-line '() viewer)))
(args (cdr tokens))
(new-entry
(make-history-entry command args 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)