From e4e1c4f92bafce2578630522435e2bc510dc6db9 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 8 Apr 2025 07:31:47 +0200 Subject: [PATCH] refactor-elisp: stub for cross-project renaming. --- lisp/progmodes/refactor-elisp.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) 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) -- 2.39.5