From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 30 Jul 2019 10:04:21 +0000 (+0200)
Subject: Use the elisp xref backend in profiler buffers
X-Git-Tag: emacs-27.0.90~1817^2~27
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26381d56e2e39700c60e17ca22c418028a3bfbd9;p=emacs.git

Use the elisp xref backend in profiler buffers

* lisp/profiler.el (profiler--xref-backend): New function (bug#23455).
(profiler-report-mode): Use it to use the elisp xref handler when
hitting `M-.' in profiler buffers.
---

diff --git a/lisp/profiler.el b/lisp/profiler.el
index ee11ff68c56..92495e2de88 100644
--- a/lisp/profiler.el
+++ b/lisp/profiler.el
@@ -615,9 +615,12 @@ return it."
       (profiler-report-render-calltree))
     buffer))
 
+(defun profiler--xref-backend () 'elisp)
+
 (define-derived-mode profiler-report-mode special-mode "Profiler-Report"
   "Profiler Report Mode."
   (add-to-invisibility-spec '(profiler . t))
+  (add-hook 'xref-backend-functions #'profiler--xref-backend nil t)
   (setq buffer-read-only t
 	buffer-undo-list t
 	truncate-lines t))