[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector 31bd6b043f 2/4: find-definitions button in sy
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector 31bd6b043f 2/4: find-definitions button in symbol inspector |
Date: |
Thu, 16 Mar 2023 09:58:25 -0400 (EDT) |
branch: externals/inspector
commit 31bd6b043f877a8bc93b05472d5d5177e5b3a50e
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>
find-definitions button in symbol inspector
---
inspector.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/inspector.el b/inspector.el
index 44e0fb183e..738a1d09de 100644
--- a/inspector.el
+++ b/inspector.el
@@ -362,7 +362,15 @@ is expected to be used.")
(cl-defmethod inspector-inspect-object ((symbol symbol))
"Render inspector buffer for SYMBOL."
- (inspector--insert-title "symbol")
+ (insert (propertize "symbol" 'face 'inspector-title-face))
+ (insert " ")
+ (insert-button "[find definitions]"
+ 'action (lambda (_btn)
+ (xref-find-definitions (symbol-name symbol)))
+ 'follow-link t)
+ (newline)
+ (inspector--insert-horizontal-line)
+ (newline)
(inspector--insert-label "name")
(inspector--insert-value (symbol-name symbol))
(newline)
@@ -764,6 +772,7 @@ is expected to be used.")
(make-local-variable '*))
buf))))
(with-current-buffer buffer
+ (add-hook 'xref-backend-functions 'elisp--xref-backend 0 'local)
(setq revert-buffer-function #'inspector--revert-buffer)
(setq buffer-read-only nil)
(erase-buffer))