diff options
| author | Peter Stephenson <pws@users.sourceforge.net> | 2006-10-10 11:24:38 +0000 |
|---|---|---|
| committer | Peter Stephenson <pws@users.sourceforge.net> | 2006-10-10 11:24:38 +0000 |
| commit | 966a330649bc99092c7a519e48efa07d7978dd40 (patch) | |
| tree | a815265799ac6bb625213114203e8dcdb39cce8c /Functions/Zle/replace-string | |
| parent | d4d6cb5494ea6444888c9b95474cd48a44d8204f (diff) | |
| download | zsh-966a330649bc99092c7a519e48efa07d7978dd40.tar.gz zsh-966a330649bc99092c7a519e48efa07d7978dd40.tar.xz zsh-966a330649bc99092c7a519e48efa07d7978dd40.zip | |
22854: replace-string-again
Diffstat (limited to 'Functions/Zle/replace-string')
| -rw-r--r-- | Functions/Zle/replace-string | 38 |
1 files changed, 4 insertions, 34 deletions
diff --git a/Functions/Zle/replace-string b/Functions/Zle/replace-string index 577e9174d..31a7567db 100644 --- a/Functions/Zle/replace-string +++ b/Functions/Zle/replace-string @@ -1,11 +1,11 @@ emulate -L zsh setopt extendedglob -autoload read-from-minibuffer +autoload -U read-from-minibuffer replace-string-again local p1="Replace: " p2=" with: " -local REPLY MATCH MBEGIN MEND curwidget=$WIDGET previous -local -a match mbegin mend +# Saving curwidget is necessary to avoid the widget name being overwritten. +local REPLY previous curwidget=$WIDGET if (( ${+NUMERIC} )); then (( $NUMERIC > 0 )) && previous=1 @@ -20,34 +20,4 @@ read-from-minibuffer "$p1$_replace_string_src$p2" \ ${previous:+$_replace_string_rep} || return 1 _replace_string_rep=$REPLY -if [[ $curwidget = *pattern* ]]; then - local rep2 - # The following horror is so that an & preceded by an even - # number of backslashes is active, without stripping backslashes, - # while preceded by an odd number of backslashes is inactive, - # with one backslash being stripped. A similar logic applies - # to \digit. - local rep=$_replace_string_rep - while [[ $rep = (#b)([^\\]#)(\\\\)#(\\|)(\&|\\<->|\\\{<->\})(*) ]]; do - if [[ -n $match[3] ]]; then - # Expression is quoted, strip quotes - rep2="${match[1]}${match[2]}${match[4]}" - else - rep2+="${match[1]}${match[2]}" - if [[ $match[4] = \& ]]; then - rep2+='${MATCH}' - elif [[ $match[4] = \\\{* ]]; then - rep2+='${match['${match[4][3,-2]}']}' - else - rep2+='${match['${match[4][2,-1]}']}' - fi - fi - rep=${match[5]} - done - rep2+=$rep - LBUFFER=${LBUFFER//(#bm)$~_replace_string_src/${(e)rep2}} - RBUFFER=${RBUFFER//(#bm)$~_replace_string_src/${(e)rep2}} -else - LBUFFER=${LBUFFER//$_replace_string_src/$_replace_string_rep} - RBUFFER=${RBUFFER//$_replace_string_src/$_replace_string_rep} -fi +replace-string-again $curwidget |