Autoload etags when using its xref backend

* lisp/progmodes/xref.el (xref--etags-backend):
Rename to etags--xref-backend.  Move to etags.el.  Autoload.
(Bug#22026)

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 2c066df90bc38e7188599c26bbefbeb4f8804e1a..306572510ef9c9f05c105aa18834ef16ec51f28c 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -2085,6 +2085,9 @@ for \\[find-tag] (which see)."
                                                 tag-implicit-name-match-p)
   "Tag order used in `xref-backend-definitions' to look for definitions.")
 
+;;;###autoload
+(defun etags--xref-backend () 'etags)
+
 (cl-defmethod xref-backend-identifier-at-point ((_backend (eql etags)))
   (find-tag--default))
 

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index c5518907aec8d86ac5497e5c2c1968fee0c2727d..8a69b07132e10ceb599d1517c6de0ddc6cbb7144 100644 (file)
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -210,14 +210,12 @@ generic functions.")
 
 ;; We make the etags backend the default for now, until something
 ;; better comes along.
-(add-hook 'xref-backend-functions #'xref--etags-backend)
+(add-hook 'xref-backend-functions #'etags--xref-backend)
 
 ;;;###autoload
 (defun xref-find-backend ()
   (run-hook-with-args-until-success 'xref-backend-functions))
 
-(defun xref--etags-backend () 'etags)
-
 (cl-defgeneric xref-backend-definitions (backend identifier)
   "Find definitions of IDENTIFIER.