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

Quote user input before globbing

This commit is contained in:
mainzelm 2004-02-09 14:10:08 +00:00
parent aaf2089247
commit 3f752d9dc3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/file-name-completion.scm
View File

@ -51,7 +51,10 @@
(define (dir-executables/prefix dir prefix) (define (dir-executables/prefix dir prefix)
(if (file-readable? dir) (if (file-readable? dir)
(map file-name-nondirectory (map file-name-nondirectory
(let ((files (glob (string-append dir "/" prefix "*")))) (let ((files (glob (string-append (glob-quote dir)
"/"
(glob-quote prefix)
"*"))))
(if *completion-check-executable* (if *completion-check-executable*
(filter executable? files) (filter executable? files)
files))) files)))