[fish] Use perl instead of sed to strip leading tabs

https://github.com/junegunn/fzf/pull/3807#discussion_r1619520105
This commit is contained in:
Junegunn Choi
2024-05-30 10:23:10 +09:00
parent b4f2cde5ac
commit 3afd543a7e

View File

@@ -70,7 +70,7 @@ function fzf_key_bindings
# before 2.4.0.
if [ "$FISH_MAJOR" -gt 2 -o \( "$FISH_MAJOR" -eq 2 -a "$FISH_MINOR" -ge 4 \) ];
if type -q perl
history -z --reverse | perl -0 -pe 's/^/$.\t/g; s/\n/\n\t/gm' | eval (__fzfcmd) --tac --read0 --print0 -q '(commandline)' | sed 's/^[0-9]*\t//' | read -lz result
history -z --reverse | perl -0 -pe 's/^/$.\t/g; s/\n/\n\t/gm' | eval (__fzfcmd) --tac --read0 --print0 -q '(commandline)' | perl -pe 's/^\d*\t//' | read -lz result
and commandline -- $result
else
history -z | eval (__fzfcmd) --read0 --print0 -q '(commandline)' | read -lz result