diff options
| author | Dmitry Gutov | 2015-11-29 23:41:58 +0200 |
|---|---|---|
| committer | Dmitry Gutov | 2015-11-29 23:41:58 +0200 |
| commit | 0887bdf90bed0749813632cc67a5663fbed64371 (patch) | |
| tree | 64291ae989f7f9d817e22e19dbaf2859d479ec15 | |
| parent | 1e010227bbe4120e9420d19037a17a7f4fbd228f (diff) | |
| download | emacs-0887bdf90bed0749813632cc67a5663fbed64371.tar.gz emacs-0887bdf90bed0749813632cc67a5663fbed64371.zip | |
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.
| -rw-r--r-- | lisp/menu-bar.el | 5 |
1 files 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 @@ | |||
| 413 | menu)) | 413 | menu)) |
| 414 | 414 | ||
| 415 | (defun menu-bar-goto-uses-etags-p () | 415 | (defun menu-bar-goto-uses-etags-p () |
| 416 | (if (boundp 'xref-find-function) | 416 | (or (not (boundp 'xref-backend-functions)) |
| 417 | (eq xref-find-function 'etags-xref-find) | 417 | (eq (car xref-backend-functions) 'etags--xref-backend))) |
| 418 | t)) | ||
| 419 | 418 | ||
| 420 | (defvar yank-menu (cons (purecopy "Select Yank") nil)) | 419 | (defvar yank-menu (cons (purecopy "Select Yank") nil)) |
| 421 | (fset 'yank-menu (cons 'keymap yank-menu)) | 420 | (fset 'yank-menu (cons 'keymap yank-menu)) |