diff options
| author | Barton E. Schaefer <schaefer@zsh.org> | 2016-01-13 19:51:07 -0800 |
|---|---|---|
| committer | Barton E. Schaefer <schaefer@zsh.org> | 2016-01-13 19:51:07 -0800 |
| commit | 4a30b542a0028f04251c4364efeed9ef2b8adaef (patch) | |
| tree | d08da29e6c85ed57df036d81d9065e41b9f93bd7 /Functions | |
| parent | c275839033b9ad04886c67837daeb5f35eafa709 (diff) | |
| download | zsh-4a30b542a0028f04251c4364efeed9ef2b8adaef.tar.gz zsh-4a30b542a0028f04251c4364efeed9ef2b8adaef.tar.xz zsh-4a30b542a0028f04251c4364efeed9ef2b8adaef.zip | |
37570: give truth to the doc assertion transpose-words-match is a drop-in replacement for transpose-words
Diffstat (limited to 'Functions')
| -rw-r--r-- | Functions/Zle/transpose-words-match | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Functions/Zle/transpose-words-match b/Functions/Zle/transpose-words-match index c1db310c1..4d2ac71f1 100644 --- a/Functions/Zle/transpose-words-match +++ b/Functions/Zle/transpose-words-match @@ -11,14 +11,23 @@ # on X would be turned into `barXfoo' with the cursor still on the X, # regardless of what the character X is. +emulate -L zsh autoload -Uz match-words-by-style -local curcontext=":zle:$WIDGET" skip +local curcontext=":zle:$WIDGET" local -a matched_words integer count=${NUMERIC:-1} neg (( count < 0 )) && (( count = -count, neg = 1 )) +if [[ $WIDGET == transpose-words ]]; then + # default is to be a drop-in replacement, check styles for change + zstyle -m $curcontext skip-chars \* || + zstyle -m $curcontext word-style '*subword*' || + { [[ $LBUFFER[-1] != [[:space:]] && $RBUFFER[1] != [[:space:]] || + -z ${RBUFFER//[[:space:]]/} ]] && zle backward-word } +fi + while (( count-- > 0 )); do match-words-by-style |