Merge remote-tracking branch 'krobelus/fix-with-option'

This commit is contained in:
Maxime Coste 2024-01-05 15:25:51 +11:00
commit 91d6ac013f

View File

@ -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}
} }