From: Paul M. Rodriguez <paulmrodriguez@gmail.com>
Date: Fri, 21 Aug 2020 22:27:40 +0000 (-0500)
Subject: Provide suitable default to m-x eglot-rename
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~202
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c37c30f134e03d0d982aef714b94bda56fe8d860;p=emacs.git

Provide suitable default to m-x eglot-rename

Copyright-paperwork-exempt: Yes

* eglot (eglot-rename): Provide a default value.

GitHub-reference: fix https://github.com/joaotavora/eglot/issues/524
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index a4ba1f9f934..64543d7bb87 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2477,7 +2477,9 @@ is not active."
 (defun eglot-rename (newname)
   "Rename the current symbol to NEWNAME."
   (interactive
-   (list (read-from-minibuffer (format "Rename `%s' to: " (symbol-at-point)))))
+   (list (read-from-minibuffer (format "Rename `%s' to: " (symbol-at-point))
+                               nil nil nil nil
+                               (symbol-name (symbol-at-point)))))
   (unless (eglot--server-capable :renameProvider)
     (eglot--error "Server can't rename!"))
   (eglot--apply-workspace-edit