[elpa] externals/inspector 31bd6b043f 2/4: find-definitions button in symbol inspector

[ELPA Syncer]

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))