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

gptel-transient: better multi-line directive editing

Browse source 
* gptel-transient.el (gptel--suffix-system-message): Mark the
whole directive when editing it in the `*gptel-system*` buffer.
Previously only the first line of the directive was being marked.
This commit is contained in:
Karthik Chikmagalur 2024-01-30 21:06:03 -08:00
parent f0e4889c36
commit a61fda4661
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gptel-transient.el
View file

@ -583,9 +583,9 @@ This uses the prompts in the variable
;; TODO: make-separator-line requires Emacs 28.1+. ;; TODO: make-separator-line requires Emacs 28.1+.
;; (insert (propertize (make-separator-line) 'rear-nonsticky t)) ;; (insert (propertize (make-separator-line) 'rear-nonsticky t))
(set-marker msg-start (point)) (set-marker msg-start (point))
(insert (buffer-local-value 'gptel--system-message orig-buf)) (save-excursion
(push-mark) (insert (buffer-local-value 'gptel--system-message orig-buf))
(beginning-of-line) (push-mark nil 'nomsg))
(activate-mark)) (activate-mark))
(display-buffer (current-buffer) (display-buffer (current-buffer)
`((display-buffer-below-selected) `((display-buffer-below-selected)