Merge remote-tracking branch 'krobelus/fix-with-option'
This commit is contained in:
commit
91d6ac013f
|
@ -63,12 +63,17 @@ define-command with-option -params 3.. -docstring %{
|
||||||
evaluate-commands -save-regs s %{
|
evaluate-commands -save-regs s %{
|
||||||
evaluate-commands set-register s %exp{%%opt{%arg{1}}}
|
evaluate-commands set-register s %exp{%%opt{%arg{1}}}
|
||||||
set-option current %arg{1} %arg{2}
|
set-option current %arg{1} %arg{2}
|
||||||
evaluate-commands %sh{
|
try %{
|
||||||
shift 2
|
evaluate-commands %sh{
|
||||||
for arg
|
shift 2
|
||||||
do
|
for arg
|
||||||
printf "'%s' " "$(printf %s "$arg" | sed "s/'/''/g")"
|
do
|
||||||
done
|
printf "'%s' " "$(printf %s "$arg" | sed "s/'/''/g")"
|
||||||
|
done
|
||||||
|
}
|
||||||
|
} catch %{
|
||||||
|
set-option current %arg{1} %reg{s}
|
||||||
|
fail "with-option: %val{error}"
|
||||||
}
|
}
|
||||||
set-option current %arg{1} %reg{s}
|
set-option current %arg{1} %reg{s}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user