[nongnu] elpa/racket-mode e36d434b31 3/3: racket-xp-rename: Supply old name as default; closes #696

[ELPA Syncer]

branch: elpa/racket-mode
commit e36d434b31521eaf19cf4e94edef0bf4c2f7f163
Author: Greg Hendershott <git@greghendershott.com>
Commit: Greg Hendershott <git@greghendershott.com>

    racket-xp-rename: Supply old name as default; closes #696
---
 racket-xp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket-xp.el b/racket-xp.el
index 4eb10ab004..a2b01a4a3c 100644
--- a/racket-xp.el
+++ b/racket-xp.el
@@ -874,7 +874,7 @@ If point is instead on a definition, then go to its first 
use."
                        (user-error "Can only rename local definitions, not 
imports")))
        (def-loc      uses-prop)
        (locs         (cons def-loc uses-locs))
-       (new-id       (read-from-minibuffer (format "Rename %s to: " old-id)))
+       (new-id       (read-string (format "Rename %s to: " old-id) nil nil 
old-id))
        (marker-pairs (mapcar (lambda (loc)
                                (let ((beg (make-marker))
                                      (end (make-marker)))