racket-xp-rename: Supply old name as default; closes #696

greghendershott · Jan 11, 2024 · e36d434 · e36d434
1 parent 8ea73be
commit e36d434
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)))