diff options
Diffstat (limited to 'llm-tools-hl.el')
| -rw-r--r-- | llm-tools-hl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/llm-tools-hl.el b/llm-tools-hl.el index daf9edd..513b3e8 100644 --- a/llm-tools-hl.el +++ b/llm-tools-hl.el | |||
| @@ -442,7 +442,7 @@ FILENAME." | |||
| 442 | (b (+ (llm-tools--hl-anchor-to-line-num (cadr range)) offset))) | 442 | (b (+ (llm-tools--hl-anchor-to-line-num (cadr range)) offset))) |
| 443 | (cons (append (cl-subseq content 0 (1- a)) | 443 | (cons (append (cl-subseq content 0 (1- a)) |
| 444 | (cl-subseq content b)) | 444 | (cl-subseq content b)) |
| 445 | (- offset (- b a 1))))) | 445 | (- offset (1+ (- b a)))))) |
| 446 | 446 | ||
| 447 | (defun llm-tools--hl-apply-replace (range payload content offset) | 447 | (defun llm-tools--hl-apply-replace (range payload content offset) |
| 448 | "Replace lines from (car RANGE) to (cadr RANGE) with PAYLOAD (nil to '(\"\"))" | 448 | "Replace lines from (car RANGE) to (cadr RANGE) with PAYLOAD (nil to '(\"\"))" |
| @@ -452,7 +452,7 @@ FILENAME." | |||
| 452 | (cons (append (cl-subseq content 0 (1- a)) | 452 | (cons (append (cl-subseq content 0 (1- a)) |
| 453 | payload | 453 | payload |
| 454 | (cl-subseq content b)) | 454 | (cl-subseq content b)) |
| 455 | (+ offset (- (length payload) (- b a 1)))))) | 455 | (+ offset (- (length payload) (1+ (- b a))))))) |
| 456 | 456 | ||
| 457 | (defun llm-tools--hl-apply-one-op (op content offset) | 457 | (defun llm-tools--hl-apply-one-op (op content offset) |
| 458 | "Apply a single OP to CONTENT (list of strings) at the given OFFSET. | 458 | "Apply a single OP to CONTENT (list of strings) at the given OFFSET. |