From 3de0aca80d056901b4c355942e33581ec3ce7acb Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 5 Oct 2022 10:32:41 +1100 Subject: clarifying names w.r.t identifiers - identifier should refer to an IdentifierInfo type on server - internal-id <-> InternalId - external-id <-> ExternalId --- hcel-minor.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'hcel-minor.el') diff --git a/hcel-minor.el b/hcel-minor.el index 85414fa..687c596 100644 --- a/hcel-minor.el +++ b/hcel-minor.el @@ -68,28 +68,28 @@ (t (error "%S not supported and not in eldoc doc buffer." major-mode)))) (defun hcel-minor-eldoc-id-type (cb) - (when-let* ((identifier (hcel-text-property-near-point 'internal-id)) + (when-let* ((internal-id (hcel-text-property-near-point 'internal-id)) (symbol (save-excursion (buffer-substring-no-properties (progn (text-property-search-backward - 'internal-id identifier 'string=) + 'internal-id internal-id 'string=) (point)) (progn (text-property-search-forward - 'internal-id identifier 'string=) + 'internal-id internal-id 'string=) (point))))) (docstring (cond ((derived-mode-p 'hcel-outline-mode) (hcel-render-type-internal (hcel-text-property-near-point 'package-id) (hcel-text-property-near-point 'module-path) - identifier)) + internal-id)) ((derived-mode-p 'hcel-ids-mode) (hcel-render-type-internal (alist-get 'packageId (hcel-text-property-near-point 'location-info)) (alist-get 'modulePath (hcel-text-property-near-point 'location-info)) - identifier)) + internal-id)) (t nil)))) (funcall cb docstring :thing symbol -- cgit v1.2.3