branch: elpa/racket-mode
commit e36d434b31521eaf19cf4e94edef0bf4c2f7f163
Author: Greg Hendershott <g...@greghendershott.com>
Commit: Greg Hendershott <g...@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)))
