[nongnu] elpa/iedit b95c35107a 176/301: Merge branch 'master' of github.com:victorhge/iedit

[ELPA Syncer]

branch: elpa/iedit
commit b95c35107a429d63b99f888b52eb0f74105d0da0
Merge: a55fcae6d0 dbe9e4478b
Author: Victor Ren <victorhge@gmail.com>
Commit: Victor Ren <victorhge@gmail.com>

    Merge branch 'master' of github.com:victorhge/iedit
---
 iedit-lib.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/iedit-lib.el b/iedit-lib.el
index 2959ae823b..bac0279e83 100644
--- a/iedit-lib.el
+++ b/iedit-lib.el
@@ -582,16 +582,20 @@ value of `iedit-occurrence-context-lines' is used for 
this time."
   (iedit-barf-if-buffering)
   (iedit-apply-on-occurrences 'downcase-region))
 
-(defun iedit-replace-occurrences(to-string)
+(defun iedit-replace-occurrences()
   "Replace occurrences with STRING.
 This function preserves case."
-  (interactive "*sReplace with: ")
+  (interactive "*")
   (iedit-barf-if-buffering)
   (let* ((ov (iedit-find-current-occurrence-overlay))
          (offset (- (point) (overlay-start ov)))
          (from-string (downcase (buffer-substring-no-properties
                                  (overlay-start ov)
-                                 (overlay-end ov)))))
+                                 (overlay-end ov))))
+         (to-string (read-string "Replace with: "
+                                 nil nil
+                                 from-string
+                                 nil)))
     (iedit-apply-on-occurrences
      (lambda (beg end from-string to-string)
        (goto-char beg)