From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 8 Apr 2025 05:31:47 +0000 (+0200)
Subject: refactor-elisp: stub for cross-project renaming.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4e1c4f92bafce2578630522435e2bc510dc6db9;p=emacs.git

refactor-elisp: stub for cross-project renaming.
---

diff --git a/lisp/progmodes/refactor-elisp.el b/lisp/progmodes/refactor-elisp.el
index 2fd23843859..382c0a7e47f 100644
--- a/lisp/progmodes/refactor-elisp.el
+++ b/lisp/progmodes/refactor-elisp.el
@@ -35,12 +35,13 @@
       (beginning-of-defun-raw)
       (catch 'var-def
         (scope (lambda (_type beg len _id &optional def)
-                 (when (and def (<= beg pos (+ beg len)))
+                 (when (<= beg pos (+ beg len))
                    (throw 'var-def
-                          (list (propertize
+                          (cons (propertize
                                  (buffer-substring-no-properties beg (+ beg len))
-                                 'pos beg))))))
-        (user-error "No local variable to rename at point")))))
+                                 'pos beg)
+                                (unless def 'project))))))
+        (user-error "No symbol to rename at point")))))
 
 (cl-defmethod refactor-backend-rename-edits
   ((_backend (eql elisp)) old new (_scope (eql nil)))
@@ -52,6 +53,10 @@
                   (alist-set beg res (list (+ beg len) new)))
                 res))))
 
+(cl-defmethod refactor-backend-rename-edits
+  ((_backend (eql elisp)) _old _new (_scope (eql project)))
+  (error "Not implemented"))
+
 (cl-defmethod refactor-backend-rename-highlight-regions
   ((_backend (eql elisp)) old (_scope (eql nil)))
   (let (res)