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

Make return value of (cwd) a directory name

This commit is contained in:
mainzelm 2006-04-06 16:24:48 +00:00
parent c232be69a1
commit f531958b62
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/complete-util.scm
View File

@ -50,7 +50,7 @@
(lambda (file) (lambda (file)
(and (member (file-name-extension file) extensions) (and (member (file-name-extension file) extensions)
file)) file))
(or (to-complete-prefix to-complete) (cwd))))) (or (to-complete-prefix to-complete) (file-name-as-directory (cwd))))))
(define (complete-executables/path partial-name) (define (complete-executables/path partial-name)
(complete-with-filesystem-objects (complete-with-filesystem-objects
@ -85,7 +85,7 @@
(if (file-directory? file) (if (file-directory? file)
(file-name-as-directory file) (file-name-as-directory file)
file)))))) file))))))
(or (to-complete-prefix to-complete) (cwd))))) (or (to-complete-prefix to-complete) (file-name-as-directory (cwd))))))
;; #### 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)