[nongnu] elpa/iedit dbe9e4478b 174/301: Merge pull request #41 from Vifon/iedit-replace-occurrences_default-value

[ELPA Syncer]

branch: elpa/iedit
commit dbe9e4478b97494ceab98c9619a2911d5d5fa496
Merge: 19f35aa1a0 bd3fd44691
Author: victorhge <victorhge@gmail.com>
Commit: victorhge <victorhge@gmail.com>

    Merge pull request #41 from Vifon/iedit-replace-occurrences_default-value
    
    Added the default value for iedit-replace-occurrences
---
 iedit-lib.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/iedit-lib.el b/iedit-lib.el
index ca4877d0fc..543ebd3301 100644
--- a/iedit-lib.el
+++ b/iedit-lib.el
@@ -581,16 +581,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)