diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-09-06 12:07:02 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-09-06 12:07:02 +1000 |
| commit | d4da245f8ad35d80bd1965d39c7fe9d306ecd03c (patch) | |
| tree | a47369984c1cd6e6a062563c494ad1b0575449d8 | |
| parent | b85fe78ce35ace46f42c5922773152843810fa5e (diff) | |
adding find references support to eldoc buffer
| -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) |