diff options
| author | Peter Stephenson <pws@users.sourceforge.net> | 2003-03-28 11:34:07 +0000 |
|---|---|---|
| committer | Peter Stephenson <pws@users.sourceforge.net> | 2003-03-28 11:34:07 +0000 |
| commit | 1e57c42f470bdd2ab6179ec44dae96fd3377a1dd (patch) | |
| tree | 5f9c38c21bcbbcba7b7524f9df7e4f99b8344424 /Functions/Zle/kill-word-match | |
| parent | 18392: read with -p and -t and no coprocess crashed. (diff) | |
| download | zsh-1e57c42f470bdd2ab6179ec44dae96fd3377a1dd.tar zsh-1e57c42f470bdd2ab6179ec44dae96fd3377a1dd.tar.gz zsh-1e57c42f470bdd2ab6179ec44dae96fd3377a1dd.tar.bz2 zsh-1e57c42f470bdd2ab6179ec44dae96fd3377a1dd.tar.lz zsh-1e57c42f470bdd2ab6179ec44dae96fd3377a1dd.tar.xz zsh-1e57c42f470bdd2ab6179ec44dae96fd3377a1dd.tar.zst zsh-1e57c42f470bdd2ab6179ec44dae96fd3377a1dd.zip | |
18394: New word movement and editing widgets.
Diffstat (limited to 'Functions/Zle/kill-word-match')
| -rw-r--r-- | Functions/Zle/kill-word-match | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Functions/Zle/kill-word-match b/Functions/Zle/kill-word-match new file mode 100644 index 000000000..9d21c4a15 --- /dev/null +++ b/Functions/Zle/kill-word-match @@ -0,0 +1,36 @@ +emulate -L zsh +setopt extendedglob + +autoload match-words-by-style + +local curcontext=":zle:$WIDGET" word done +local -a matched_words +integer count=${NUMERIC:-1} + +if (( count < 0 )); then + (( NUMERIC = -count )) + zle backward-$WIDGET + return +fi + +while (( count-- )); do + + match-words-by-style + + 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=$matched_words[6] + else + return 1 + fi + done=1 +done + +return 0 |