From 0887bdf90bed0749813632cc67a5663fbed64371 Mon Sep 17 00:00:00 2001
From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 29 Nov 2015 23:41:58 +0200
Subject: [PATCH] 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.
---
 lisp/menu-bar.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index defd8db6c0d..fe2b6a6681b 100644
--- 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))
-- 
2.39.5