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

Fix two small completion bugs

This commit is contained in:
eknauel 2005-08-19 14:13:19 +00:00
parent eefce5d839
commit 6035214d0e
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/completer.scm
View File

@ -80,7 +80,7 @@
(let ((prefix (to-complete-prefix to-complete))) (let ((prefix (to-complete-prefix to-complete)))
(if prefix (if prefix
(complete-files/path (expand-file-name prefix (cwd))) (complete-files/path (expand-file-name prefix (cwd)))
(complete-files/path prefix)))) (complete-files/path ""))))
;; #### no special treatment yet ;; #### no special treatment yet
(define find-completions-for-redir find-completions-for-arg) (define find-completions-for-redir find-completions-for-arg)
@ -185,9 +185,6 @@
(else (else
(error "Unknown completion type" type))))) (error "Unknown completion type" type)))))
(define (calculate-cursor-index to-complete completion)
(+ (to-complete-pos to-complete) (string-length completion)))
(define (complete cmdln cursor-index) (define (complete cmdln cursor-index)
(debug-message "complete " cmdln ", " cursor-index) (debug-message "complete " cmdln ", " cursor-index)
(let* ((parsed (let* ((parsed
@ -206,7 +203,7 @@
parsed (lambda (to-complete) parsed (lambda (to-complete)
(display (car completions))))) (display (car completions)))))
(lambda (completed-line cursor-index) (lambda (completed-line cursor-index)
(list completed-line cursor-index parsed)))) (list completed-line cursor-index to-complete parsed))))
(else (else
(list completions cursor-index to-complete parsed)))))))) (list completions cursor-index to-complete parsed))))))))