diff options
| author | Lars Ingebrigtsen | 2019-07-30 12:04:21 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-30 12:04:21 +0200 |
| commit | 26381d56e2e39700c60e17ca22c418028a3bfbd9 (patch) | |
| tree | 20e9a59155cfd38906bfb3f2f3e1f1cda604daed | |
| parent | e18a4a08e40c83623c7c5c7159de1b772d22303a (diff) | |
| download | emacs-26381d56e2e39700c60e17ca22c418028a3bfbd9.tar.gz emacs-26381d56e2e39700c60e17ca22c418028a3bfbd9.zip | |
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.
| -rw-r--r-- | lisp/profiler.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 615 | (profiler-report-render-calltree)) | 615 | (profiler-report-render-calltree)) |
| 616 | buffer)) | 616 | buffer)) |
| 617 | 617 | ||
| 618 | (defun profiler--xref-backend () 'elisp) | ||
| 619 | |||
| 618 | (define-derived-mode profiler-report-mode special-mode "Profiler-Report" | 620 | (define-derived-mode profiler-report-mode special-mode "Profiler-Report" |
| 619 | "Profiler Report Mode." | 621 | "Profiler Report Mode." |
| 620 | (add-to-invisibility-spec '(profiler . t)) | 622 | (add-to-invisibility-spec '(profiler . t)) |
| 623 | (add-hook 'xref-backend-functions #'profiler--xref-backend nil t) | ||
| 621 | (setq buffer-read-only t | 624 | (setq buffer-read-only t |
| 622 | buffer-undo-list t | 625 | buffer-undo-list t |
| 623 | truncate-lines t)) | 626 | truncate-lines t)) |