From d4da245f8ad35d80bd1965d39c7fe9d306ecd03c Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Tue, 6 Sep 2022 12:07:02 +1000
Subject: adding find references support to eldoc buffer

---
 lisp/hcel-results.el | 3 ++-
 lisp/hcel-source.el  | 5 ++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'lisp')

diff --git a/lisp/hcel-results.el b/lisp/hcel-results.el
index df1b8ae..59213e6 100644
--- a/lisp/hcel-results.el
+++ b/lisp/hcel-results.el
@@ -186,7 +186,8 @@ Start by choosing a package."
 (defun hcel-minor-find-references-at-point ()
   (interactive)
   (let ((props (text-properties-at (point))))
-    (cond ((eq major-mode 'hcel-outline-mode)
+    (cond ((or (eq major-mode 'hcel-outline-mode)
+               (eq (current-buffer) eldoc--doc-buffer))
            (hcel-find-references-internal
             (plist-get props 'package-id)
             (plist-get props 'module-path)
diff --git a/lisp/hcel-source.el b/lisp/hcel-source.el
index b52393e..31a17e1 100644
--- a/lisp/hcel-source.el
+++ b/lisp/hcel-source.el
@@ -205,7 +205,10 @@ May cause error if the identifier has exact location."
 (defun hcel-eldoc-id-type (cb)
   (when-let ((symbol (hcel-occ-symbol-at-point))
              (docstring
-              (hcel-type-at-point)))
+              (propertize
+               (hcel-type-at-point)
+               'package-id hcel-package-id
+               'module-path hcel-module-path)))
     (funcall cb docstring
              :thing symbol
              :face 'font-lock-variable-name-face)
-- 
cgit v1.2.3