Function: gptel--handle-abort

gptel--handle-abort is a natively compiled function defined in gptel.el.

Signature

(gptel--handle-abort FSM)

Documentation

Perform UI update on gptel-abort for FSM.

Source Code

;; Defined in /nix/store/q3r7g81pvghw7a523kjk2k2zih3pfk8z-emacs-packages-deps/share/emacs/site-lisp/elpa/gptel-20261002.545/gptel.el
(defun gptel--handle-abort (fsm)
  "Perform UI update on `gptel-abort' for FSM."
  (when-let* ((info (gptel-fsm-info fsm))
              (gptel-buffer (plist-get info :buffer))
              (start-marker (plist-get info :position))
              (tracking-marker (or (plist-get info :tracking-marker)
                                   start-marker)))
    (if-let* ((gptel-window (get-buffer-window gptel-buffer 'visible)))
        (with-selected-window gptel-window
          (mapc (lambda (f) (funcall f info)) (plist-get info :post))
          (run-hook-with-args
           'gptel-post-response-functions
           (marker-position start-marker) (marker-position tracking-marker)))
      (with-current-buffer gptel-buffer
        (mapc (lambda (f) (funcall f info)) (plist-get info :post))
        (run-hook-with-args
         'gptel-post-response-functions
         (marker-position start-marker) (marker-position tracking-marker))))
    (with-current-buffer gptel-buffer
      (when gptel-mode
        (gptel--update-status  " Abort" 'error)
        (gptel--update-token-usage (plist-get info :tokens)
                                   (plist-get info :tokens-full))))))