Update menu-bar-goto-uses-etags-p for the current xref API

* lisp/menu-bar.el (menu-bar-goto-uses-etags-p): Consult
xref-backend-functions, instead of now-nonexistent
xref-find-function.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index defd8db6c0d44c99c203a8046c661cc04cc24c01..fe2b6a6681bdb006ec748c5582d5a85d2eda22b3 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -413,9 +413,8 @@
     menu))
 
 (defun menu-bar-goto-uses-etags-p ()
-  (if (boundp 'xref-find-function)
-      (eq xref-find-function 'etags-xref-find)
-    t))
+  (or (not (boundp 'xref-backend-functions))
+      (eq (car xref-backend-functions) 'etags--xref-backend)))
 
 (defvar yank-menu (cons (purecopy "Select Yank") nil))
 (fset 'yank-menu (cons 'keymap yank-menu))