picolisp

commit 48d595248fe92e88d7c519c7ce7271b0d1d623c3
parent fa60b1ce05289a631ea71551b0c6d6d64620e21f
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  3 Apr 2012 15:07:20 +0200

Completion handling stderr and escapes
Diffstat:
M
lib/bash_completion
 | 
2
+-
M
lib/complete.l
 | 
5
+++--

2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/lib/bash_completion b/lib/bash_completion
@@ -12,7 +12,7 @@ _pil()
         done )
     local IFS=$'\n'
 
-    COMPREPLY=($($CMD /usr/lib/picolisp/lib/complete.l "${COMP_WORDS[$COMP_CWORD]}" -bye +))
+    COMPREPLY=($($CMD /usr/lib/picolisp/lib/complete.l "${COMP_WORDS[$COMP_CWORD]}" -bye + 2>&1))
     return 0
 } &&
 complete -o nospace  -F _pil  picolisp  &&
diff --git a/lib/complete.l b/lib/complete.l
@@ -1,4 +1,4 @@
-# 02apr12abu
+# 03apr12abu
 # (c) Software Lab. Alexander Burger
 
 (if (opt)
@@ -17,7 +17,8 @@
             (setq "Path" (and (cdr "Path") (pack (glue "/" @) "/")))
             (for "Sym" (dir "Path" T)
                (when (pre? "Str" "Sym")
-                  (prinl "Path" "Sym"
+                  (prinl "Path"
+                     (replace (chop "Sym") " " "\\ ")
                      (if (=T (car (info (pack "Path" "Sym"))))
                         "/"
                         " " ) ) ) ) ) ) )