refactor-elisp: stub for cross-project renaming.

diff --git a/lisp/progmodes/refactor-elisp.el b/lisp/progmodes/refactor-elisp.el
index 2fd23843859a4ddc6323509db7fd406a77a788aa..382c0a7e47f1924acd5b96ca0122397f20a0a59f 100644 (file)
--- 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)