From 4beedf221eee5a8f4ae659fccd6f36c96c66cc69 Mon Sep 17 00:00:00 2001
From: Paul Ackersviller <packersv@users.sourceforge.net>
Date: Sun, 18 Mar 2007 23:19:59 +0000
Subject: Merge of trunk updates workers/20708 and workers/22854.

---
 Functions/Zle/replace-string | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 Functions/Zle/replace-string

(limited to 'Functions')

diff --git a/Functions/Zle/replace-string b/Functions/Zle/replace-string
new file mode 100644
index 000000000..31a7567db
--- /dev/null
+++ b/Functions/Zle/replace-string
@@ -0,0 +1,23 @@
+emulate -L zsh
+setopt extendedglob
+
+autoload -U read-from-minibuffer replace-string-again
+
+local p1="Replace: " p2="   with: "
+# Saving curwidget is necessary to avoid the widget name being overwritten.
+local REPLY previous curwidget=$WIDGET
+
+if (( ${+NUMERIC} )); then
+  (( $NUMERIC > 0 )) && previous=1
+else
+  zstyle -t ":zle:$WIDGET" edit-previous && previous=1
+fi
+
+read-from-minibuffer $p1 ${previous:+$_replace_string_src} || return 1
+_replace_string_src=$REPLY
+
+read-from-minibuffer "$p1$_replace_string_src$p2" \
+  ${previous:+$_replace_string_rep} || return 1
+_replace_string_rep=$REPLY
+
+replace-string-again $curwidget
-- 
cgit 1.4.1