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

add implementation for call-completer

This commit is contained in:
eknauel 2005-06-13 11:04:49 +00:00
parent 98c77ced7d
commit 96e9c07f0e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/nuit-engine.scm
View File

@ -777,9 +777,15 @@
win (result-buffer) (focus-on-result-buffer?)) win (result-buffer) (focus-on-result-buffer?))
(refresh-result-window))) (refresh-result-window)))
;; #### implement me
(define (completer-function-for-command command) (define (completer-function-for-command command)
#f) (let ((alist
(map (lambda (p)
(cons (command-plugin-command p)
(command-plugin-completer p)))
(command-plugin-list))))
(cond
((assoc command alist) => cdr)
(else #f))))
(define (call-completer command args prefix arg-pos) (define (call-completer command args prefix arg-pos)
(cond (cond