Function: majutsu-mode-quit-window

majutsu-mode-quit-window is an interactive and natively compiled function defined in majutsu-mode.el.

Signature

(majutsu-mode-quit-window KILL-BUFFER)

Documentation

Quit the selected window and bury its buffer.

This behaves similar to quit-window, but when the window was originally created to display a Majutsu buffer and the current buffer is the last remaining Majutsu buffer that was ever displayed in the selected window, then delete that window.

Key Bindings

This command is not in any keymaps.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-mode.el
(defun majutsu-mode-quit-window (kill-buffer)
  "Quit the selected window and bury its buffer.

This behaves similar to `quit-window', but when the window
was originally created to display a Majutsu buffer and the
current buffer is the last remaining Majutsu buffer that was
ever displayed in the selected window, then delete that window."
  (interactive "P")
  (if (or (one-window-p)
          (seq-find (pcase-lambda (`(,buffer))
                      (and (not (eq buffer (current-buffer)))
                           (buffer-live-p buffer)
                           (or (not (window-parameter nil 'majutsu-dedicated))
                               (with-current-buffer buffer
                                 (derived-mode-p 'majutsu-mode
                                                 'majutsu-process-mode)))))
                    (window-prev-buffers)))
      (quit-window kill-buffer)
    (let ((window (selected-window)))
      (quit-window kill-buffer)
      (when (window-live-p window)
        (delete-window window)))))