tristan/gptel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix top-buffer snippets not being added

Browse source
This commit is contained in:
daedsidog 2024-03-16 02:13:57 +02:00
parent 21b5a22c7e
commit 4e8b91670a
1 changed files with 28 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gptel-contexter.el
View file

@ -409,8 +409,7 @@ REGIONS is a list of pairs of (start, end) lists."
;; We do not need to insert a line number indicator on ;; We do not need to insert a line number indicator on
;; inline regions. ;; inline regions.
(unless (or region-inline region-continuous (unless (or region-inline region-continuous
(insert (format " (Line %d)" lineno)))) (insert (format " (Line %d)" lineno))))))
(setq is-top-snippet nil))
(if is-top-snippet (if is-top-snippet
(setq is-top-snippet nil) (setq is-top-snippet nil)
(when (and (not region-inline) (when (and (not region-inline)
@ -437,7 +436,7 @@ REGIONS is a list of pairs of (start, end) lists."
(cons buffer (cons buffer
(list (list
(list start end))))))) (list start end)))))))
(setq previous-region (cons start end))))) (setq previous-region (cons start end))))
(unless (= (cl-second (car (last regions))) buffer-point-max) (unless (= (cl-second (car (last regions))) buffer-point-max)
(insert "\n...")) (insert "\n..."))
(insert "\n```")) (insert "\n```"))