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

Fix expansion to common prefix

This commit is contained in:
mainzelm 2006-04-05 07:20:16 +00:00
parent d222c8aefb
commit 6304312753
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/completer.scm
View File

@ -145,7 +145,8 @@
(else (else
(let ((common-prefix (strings-common-prefix completions))) (let ((common-prefix (strings-common-prefix completions)))
(debug-message "common-prefix is" common-prefix) (debug-message "common-prefix is" common-prefix)
(if (string=? common-prefix "") (if (<= (string-length common-prefix)
(string-length (to-complete-prefix to-complete)))
(list #f completions cursor-index to-complete parsed) (list #f completions cursor-index to-complete parsed)
(call-with-values (call-with-values
(lambda () (lambda ()
@ -153,7 +154,8 @@
parsed (lambda (to-complete) parsed (lambda (to-complete)
(display common-prefix)))) (display common-prefix))))
(lambda (completed-line cursor-index) (lambda (completed-line cursor-index)
(list completed-line completions cursor-index to-complete parsed)))))))))))) (list completed-line '()
cursor-index to-complete parsed))))))))))))
(define (strings-common-prefix strs) (define (strings-common-prefix strs)