aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/hcel-results.el3
-rw-r--r--lisp/hcel-source.el5
2 files changed, 6 insertions, 2 deletions
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)