Quote user input before globbing

2004-02-09 14:10:08 +00:00 · 2004-02-09 14:10:08 +00:00 · 3f752d9dc3
parent aaf2089247
commit 3f752d9dc3
1 changed files with 4 additions and 1 deletions
--- a/src/file-name-completion.scm
+++ b/src/file-name-completion.scm
@ -51,7 +51,10 @@
 (define (dir-executables/prefix dir prefix)
  (if (file-readable? dir)
      (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*
                  (filter executable? files)
                  files)))