Rename a helper function to be private and have a more accurate name

Also tweak its docstring.
This commit is contained in:
Protesilaos 2026-08-28 16:40:30 +03:00
parent 2c8cf137ac
commit 0a157981e5
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -7041,8 +7041,9 @@ create a new one."
"Get current Org heading text." "Get current Org heading text."
(org-get-heading :no-tags :no-todo :no-priority :no-comment)) (org-get-heading :no-tags :no-todo :no-priority :no-comment))
(defun denote-link-format-heading-description (file-text heading-text) (defun denote-link--ol-format-heading-description (file-text heading-text)
"Return description for FILE-TEXT with HEADING-TEXT at the end or "Return heading description.
Return description for FILE-TEXT with HEADING-TEXT at the end or
only HEADING-TEXT if `denote-org-store-link-to-heading' is set to `local' links." only HEADING-TEXT if `denote-org-store-link-to-heading' is set to `local' links."
(if (eq denote-org-store-link-to-heading 'local) (if (eq denote-org-store-link-to-heading 'local)
(format "%s" heading-text) (format "%s" heading-text)
@ -7067,7 +7068,7 @@ Also see the user option `denote-org-store-link-to-heading'."
(org-link-store-props (org-link-store-props
:type "denote" :type "denote"
:description (if (and heading-links heading) :description (if (and heading-links heading)
(denote-link-format-heading-description (denote-link--ol-format-heading-description
description description
heading) heading)
description) description)