fix anchor extraction and operation parsing to handle payload lines

- avoid processing payload and comment lines via filter.
- add guard on short strings (2 and under) just in case.
- fixed args-out-of-range crash when payload lines appeared in patches.

1 files changed, 15 insertions, 0 deletions

diff --git a/llm-tools-hl-test.el b/llm-tools-hl-test.el
index d008491..879a4b4 100644
--- a/llm-tools-hl-test.el
+++ b/llm-tools-hl-test.el
@@ -665,3 +665,18 @@
     (let ((op (car (llm-tools--hl-parse-section section))))
       (should (eq (hl-op-type op) 'insert-before))
       (should (string= (hl-op-anchor op) "BOF")))))
+
+(ert-deftest llm-tools--hl-get-anchors-with-payload-lines-test ()
+  "Test that payload lines (~) are ignored during anchor extraction.
+This would have caught the args-out-of-range crash when anchor extraction
+tried to parse a line like \"~payload\" as an operation."
+  (let ((patch "@@ test.el\n+ 4ei\n~some payload\n~another line\n= 3gv..6be\n~replacement"))
+    (let ((anchors (llm-tools--hl-get-anchors patch)))
+      (should (= (length anchors) 1))
+      (let ((file-anchors (cdr (car anchors))))
+        (should (member "4ei" file-anchors))
+        (should (member "3gv" file-anchors))
+        (should (member "6be" file-anchors))
+        (should-not (member "some payload" file-anchors))
+        (should-not (member "another line" file-anchors))
+        (should-not (member "replacement" file-anchors))))))