gptel: Set window when doing auto-scrolling
* gptel.el (gptel-auto-scroll): After calling `gptel-send`, the window focus could have changed as the response is received. Set the window correctly when running `gptel-auto-scroll` to ensure the correct buffer is scrolled.
This commit is contained in:
parent
c3ca4fd0a0
commit
9126bed43f
1 changed files with 8 additions and 4 deletions
12
gptel.el
12
gptel.el
|
@ -462,14 +462,18 @@ and \"apikey\" as USER."
|
|||
"Scroll window if LLM response continues below viewport.
|
||||
|
||||
Note: This will move the cursor."
|
||||
(when (and (window-live-p (get-buffer-window (current-buffer)))
|
||||
(not (pos-visible-in-window-p)))
|
||||
(scroll-up-command)))
|
||||
(when-let* ((win (get-buffer-window (current-buffer) 'visible))
|
||||
((not (pos-visible-in-window-p (point) win)))
|
||||
(scroll-error-top-bottom t))
|
||||
(condition-case nil
|
||||
(with-selected-window win
|
||||
(scroll-up-command))
|
||||
(error nil))))
|
||||
|
||||
(defun gptel-end-of-response (&optional arg)
|
||||
"Move point to the end of the LLM response ARG times."
|
||||
(interactive "p")
|
||||
(dotimes (if arg (abs arg) 1)
|
||||
(dotimes (_ (if arg (abs arg) 1))
|
||||
(text-property-search-forward 'gptel 'response t)
|
||||
(when (looking-at (concat "\n\\{1,2\\}"
|
||||
(regexp-quote
|
||||
|
|
Loading…
Add table
Reference in a new issue