From 29b7ae4f9fcb8ff04698eeeef48141b901f8c1c9 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Fri, 16 Apr 2010 17:52:58 -0400
Subject: [PATCH] fix comments and props

---
 collects/meta/contrib/completion/racket-completion.bash | 9 ++++++---
 collects/meta/props                                     | 1 +
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/collects/meta/contrib/completion/racket-completion.bash b/collects/meta/contrib/completion/racket-completion.bash
index 1363e983c8..f3bd6e493d 100644
--- a/collects/meta/contrib/completion/racket-completion.bash
+++ b/collects/meta/contrib/completion/racket-completion.bash
@@ -9,6 +9,8 @@
 #
 # Change $PLTHOME to whatever references your Racket installation
 
+# this completes only *.{rkt,ss,scm,scrbl} files unless there are
+# none, in which case it completes other things
 _smart_filedir()
 {
   COMPREPLY=()
@@ -25,7 +27,6 @@ _racket()
   COMPREPLY=()
   cur=`_get_cword`
   prev="${COMP_WORDS[COMP_CWORD-1]}"
-  #prev2="${COMP_WORDS[COMP_CWORD-2]}"
   doubleopts="--help --version --eval --load --require --lib --script --require-script\
  --main --repl --no-lib --version --warn --syslog --collects --search --addon --no-compiled --no-init-file"
   singleopts="-h -e -f -t -l -p -r -u -k  -m -i -n -v -W -L -X -S -A -I -U -N -j -d -b -c -q"
@@ -56,16 +57,18 @@ _racket()
       ;;
     *)
       case "${prev}" in
-        # these do not take paths as options
+        # these do not take anything completable as arguments
         --help|-h|-e|--eval|-p|-k)
           ;;
-        # these take dirs (not files) as options
+        # these take dirs (not files) as arguments
         -X|-S|-A|--collects|--search|--addon)
           _filedir '-d'
           ;;
+        # these take warnlevels as arguments
         -W|--warn|-L|--syslog)
           COMPREPLY=( $(compgen -W "${warnlevels}" -- ${cur}) )
           ;;
+        # otherwise, just a file
         *)
           _smart_filedir 
           ;;
diff --git a/collects/meta/props b/collects/meta/props
index 33bce9d2d7..3a1d407212 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -898,6 +898,7 @@ path/s is either such a string or a list of them.
 "collects/meta" responsible (eli)
 "collects/meta/check-dists.ss" drdr:command-line ""
 "collects/meta/drdr" responsible (jay) drdr:command-line ""
+"collects/meta/contrib/completion/racket-completion.bash" responsible (samth sstrickl) drdr:command-line ""
 "collects/mred/edit-main.ss" drdr:command-line "mzc ~s"
 "collects/mred/edit.ss" drdr:command-line "mred-text -t ~s"
 "collects/mred/lang/main.ss" drdr:command-line "mred-text -t ~s"