From b052ec7ded67ba5f187b00291aa58cc38856c826 Mon Sep 17 00:00:00 2001 From: Vineet Kumar Date: Sun, 24 May 2026 20:26:51 -0400 Subject: fix docstrings --- llm-tools-hl.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/llm-tools-hl.el b/llm-tools-hl.el index 1ec13ef..3072ffc 100644 --- a/llm-tools-hl.el +++ b/llm-tools-hl.el @@ -90,7 +90,8 @@ If INCLUDE-CONTENT is non-nil, append `|LINE' after each hash." (llm-tools--hl-format-lines (llm-tools--hl-file-lines file beg end) beg t)) (defun llm-tools--hl-file-read-hashes (file) - "TODO rewrite docstring to be less redundant. Return FILE contents in hashline format without content as a list of hashline-formatted hashes." + "Return FILE contents as a list of hashline strings without line content. +Each element is a line number and two-character hash, like `1vx'." (string-lines (llm-tools--hl-format-lines (llm-tools--hl-file-lines file)))) (defun llm-tools--hl-file-line-hash (file n) @@ -149,7 +150,10 @@ the operations in that file's sections. Each anchor is a string like sections)))) (defun llm-tools--hl-verify (patch) - "TODO rewrite docstring to be lses verbose? Verifies the anchors exist in PATCH." + "Verify that all anchors in PATCH match the current file contents. +Returns a list of booleans, one per file, indicating whether every +anchor in that file's patch sections still matches the corresponding +line in the on-disk file." (let ((patch-anchors (llm-tools--hl-get-anchors patch))) (mapcar (lambda (section) (let* ((file (car section)) -- cgit v1.2.3