mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-19 13:33:52 +01:00
40 lines
760 B
Plaintext
40 lines
760 B
Plaintext
emulate -L zsh
|
|
setopt extendedglob
|
|
|
|
autoload match-words-by-style
|
|
|
|
local curcontext=":zle:$WIDGET" word
|
|
local -a matched_words
|
|
integer count=${NUMERIC:-1}
|
|
|
|
if (( count < 0 )); then
|
|
(( NUMERIC = -count ))
|
|
zle ${WIDGET/forward/backward}
|
|
return
|
|
fi
|
|
|
|
while (( count-- )); do
|
|
|
|
match-words-by-style
|
|
|
|
# For some reason forward-word doesn't work like the other word
|
|
# commands; it skips whitespace only after any matched word
|
|
# characters.
|
|
|
|
if [[ -n $matched_words[4] ]]; then
|
|
# just skip the whitespace
|
|
word=$matched_words[4]
|
|
else
|
|
# skip the word and trailing whitespace
|
|
word=$matched_words[5]$matched_words[6]
|
|
fi
|
|
|
|
if [[ -n $word ]]; then
|
|
(( CURSOR += ${#word} ))
|
|
else
|
|
return 1
|
|
fi
|
|
done
|
|
|
|
return 0
|