mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-10-24 17:00:32 +02:00
Code Releases Activity

users/11419: zle copy-region-as-kill <string>

Browse source 
adds text to the kill ring
This commit is contained in:
Peter Stephenson 2007-04-19 14:16:22 +00:00
parent 0d101890d0
commit c6dfb2999d
7 changed files with 92 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Functions/Zle/backward-kill-word-match
View file

@ -8,29 +8,28 @@ local -a matched_words
integer count=${NUMERIC:-1}
if (( count < 0 )); then
(( NUMERIC = -count ))
zle ${WIDGET##backward-}
return
(( NUMERIC = -count ))
zle ${WIDGET##backward-}
return
fi
while (( count-- )); do
match-words-by-style
match-words-by-style
word="$matched_words[2]$matched_words[3]"
word="$matched_words[2]$matched_words[3]"
if [[ -n $word ]]; then
if [[ -n $done || $LASTWIDGET = *kill* ]]; then
CUTBUFFER="$word$CUTBUFFER"
else
killring=("$CUTBUFFER" "${(@)killring[1,-2]}")
CUTBUFFER=$word
fi
LBUFFER=$matched_words[1]
if [[ -n $word ]]; then
if [[ -n $done || $LASTWIDGET = *kill* ]]; then
CUTBUFFER="$word$CUTBUFFER"
else
return 1
zle copy-region-as-kill "$word"
fi
done=1
LBUFFER=$matched_words[1]
else
return 1
fi
done=1
done
return 0