equal
deleted
inserted
replaced
11 # GNU General Public License for more details. |
11 # GNU General Public License for more details. |
12 # |
12 # |
13 # You should have received a copy of the GNU General Public License |
13 # You should have received a copy of the GNU General Public License |
14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
15 |
15 |
16 _relpipe_tr_guile_completion() { |
16 _relpipe_tr_scheme_completion() { |
17 local w0 w1 w2 |
17 local w0 w1 w2 |
18 |
18 |
19 COMPREPLY=() |
19 COMPREPLY=() |
20 w0=${COMP_WORDS[COMP_CWORD]} |
20 w0=${COMP_WORDS[COMP_CWORD]} |
21 w1=${COMP_WORDS[COMP_CWORD-1]} |
21 w1=${COMP_WORDS[COMP_CWORD-1]} |
55 ) |
55 ) |
56 COMPREPLY=($(compgen -W "${OPTIONS[*]}" -- "$w0")) |
56 COMPREPLY=($(compgen -W "${OPTIONS[*]}" -- "$w0")) |
57 fi |
57 fi |
58 } |
58 } |
59 |
59 |
60 complete -F _relpipe_tr_guile_completion relpipe-tr-guile |
60 complete -F _relpipe_tr_scheme_completion relpipe-tr-scheme |
61 complete -F _relpipe_tr_guile_completion relpipe-in-guile |
61 complete -F _relpipe_tr_scheme_completion relpipe-in-scheme |