diff options
| -rw-r--r-- | lisp/hcel-results.el | 3 | ||||
| -rw-r--r-- | lisp/hcel-source.el | 5 |
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) |