Function: ghostel--sentinel

ghostel--sentinel is a natively compiled function defined in ghostel.el.

Signature

(ghostel--sentinel PROCESS EVENT)

Documentation

Clean up after the terminal process or event pipe changes state.

PROCESS is the Emacs process object that triggered the sentinel. EVENT is the state-change description passed by Emacs.

Source Code

;; Defined in /nix/store/1252krff0gb2kisjcpp45m50cpdskfrl-emacs-packages-deps/share/emacs/site-lisp/ghostel.el
(defun ghostel--sentinel (process event)
  "Clean up after the terminal process or event pipe changes state.
PROCESS is the Emacs process object that triggered the sentinel.
EVENT is the state-change description passed by Emacs."
  (let ((buf (process-buffer process)))
    (when (buffer-live-p buf)
      (with-current-buffer buf
        (ghostel--cancel-password-confirm-timer)
        (ghostel--spinner-stop)
        (remove-hook 'pre-redisplay-functions #'ghostel--fake-cursor-update t)
        (ghostel--fake-cursor-clear)
        (ghostel--run-hook-safely 'ghostel-exit-functions buf event))
      (when (buffer-live-p buf)
        (with-current-buffer buf
          (ghostel--sync-read-only)  ; Restore the plain read-only barrier
          (setq desktop-save-buffer nil)  ; Don't save/restore dead sessions
          (if ghostel-kill-buffer-on-exit
              (kill-buffer buf)
            (let ((inhibit-read-only t))
              (goto-char (point-max))
              (insert "\n[Process exited]\n"))))))))