mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-10-23 04:30:24 +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

3
Functions/Zle/delete-whole-word-match
View file

@ -49,8 +49,7 @@ if [[ $WIDGET = *kill* ]]; then
if [[ $LASTWIDGET = *kill* ]]; then
CUTBUFFER="$CUTBUFFER$word"
else
killring=("$CUTBUFFER" "${(@)killring[1,-2]}")
CUTBUFFER=$word
zle copy-region-as-kill "$word"
fi
fi
BUFFER="${BUFFER[1,pos1]}${BUFFER[pos2,-1]}"

30
Functions/Zle/kill-word-match
View file

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