diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-09-29 14:57:49 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-09-29 14:57:49 +1000 |
| commit | 485026c5f20a109022f68200e43146f5dd7dc5cc (patch) | |
| tree | f6a08714da7362f8c740c78fbb10aa75544e4b4e /hcel-source.el | |
| parent | 7f73da1356d141d35047523a8ed0764a95385f7d (diff) | |
Fixing clean compiling warning.
Diffstat (limited to 'hcel-source.el')
| -rw-r--r-- | hcel-source.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/hcel-source.el b/hcel-source.el index fc7e38c..814211c 100644 --- a/hcel-source.el +++ b/hcel-source.el @@ -215,7 +215,7 @@ the location with pulsing. (ignore-errors (hcel-hoogle-docs-location-info location-info)))) (when (length> hoogle-docs 0) (concat "Hoogle: " hoogle-docs)))))) - (hcel-render-html docs))))))) + (hcel-render-html docs 'hcel-tag-span-button-load-source))))))) ;; TODO: multiple expressions (defun hcel-expressions-type (beg end) @@ -376,6 +376,11 @@ the location with pulsing. (libxml-parse-html-region (point-min) (point-max)) "line-content"))) +(defun hcel-tag-span-button-load-source (marker) + (hcel-load-module-location-info + (hcel-to-exact-location + (get-text-property marker 'location-info)))) + ;; imenu (defun hcel-imenu-create-index () (hcel-imenu-create-index-internal)) |