From bd2aa5705d94b7d403096c62637e64c479ea0de5 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 25 May 2026 07:45:56 -0500 Subject: refactor: rename pearl--issue-body-at-point to pearl--entry-body-at-point The helper returns the body of the Org entry at point, before any child heading. It started out reading issue descriptions, but comment editing and deletion reuse it for comment bodies too, so "issue" in the name was misleading. I renamed it across its callers and the sync/refresh/save/comment tests, and reworded the docstring to say "entry". --- tests/test-pearl-comment-editing.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/test-pearl-comment-editing.el') diff --git a/tests/test-pearl-comment-editing.el b/tests/test-pearl-comment-editing.el index be65aa3..ff1dff5 100644 --- a/tests/test-pearl-comment-editing.el +++ b/tests/test-pearl-comment-editing.el @@ -232,7 +232,7 @@ (goto-char (point-min)) (re-search-forward "^\\*\\*\\*\\*\\* Craig") (should (string= stored (org-entry-get nil "LINEAR-COMMENT-SHA256"))) - (should (string= "new body" (pearl--issue-body-at-point))))))) + (should (string= "new body" (pearl--entry-body-at-point))))))) ;;; editability highlighting @@ -282,7 +282,7 @@ "*** Comments\n**** Me — ts\n:PROPERTIES:\n:LINEAR-COMMENT-ID: c1\n:END:\n" "see :note: below\nand more text\n") (re-search-forward "see :note:") - (should (string= "see :note: below\nand more text" (pearl--issue-body-at-point))))) + (should (string= "see :note: below\nand more text" (pearl--entry-body-at-point))))) (provide 'test-pearl-comment-editing) ;;; test-pearl-comment-editing.el ends here -- cgit v1.2.3