Function: dape--kill-buffers

dape--kill-buffers is a natively compiled function defined in dape.el.

Signature

(dape--kill-buffers &optional SKIP-PROCESS-BUFFERS)

Documentation

Kill all dape buffers.

On SKIP-PROCESS-BUFFERS skip deletion of buffers which has processes.

Source Code

;; Defined in /nix/store/1fiaif8pifqj2jh65rbg3fkhg3i56q42-emacs-packages-deps/share/emacs/site-lisp/elpa/dape-0.27.1/dape.el
(defun dape--kill-buffers (&optional skip-process-buffers)
  "Kill all dape buffers.
On SKIP-PROCESS-BUFFERS skip deletion of buffers which has processes."
  (cl-loop for buffer in (buffer-list)
           when (and
                 (buffer-live-p buffer)
                 (buffer-match-p
                  '(or "\\*dape-source .+\\*"
                       "\\*dape-.+ events\\*"
                       "\\*dape-.+ output\\*"
                       "\\*dape-.+ stderr\\*"
                       (major-mode . dape-repl-mode)
                       (major-mode . dape-memory-mode)
                       (major-mode . dape-shell-mode)
                       (major-mode . dape-disassemble-mode)
                       (derived-mode . dape-info-parent-mode))
                  buffer)
                 (not (and skip-process-buffers
                           (get-buffer-process buffer))))
           do
           (condition-case err
               (let ((window (get-buffer-window buffer)))
                 (kill-buffer buffer)
                 (when (window-live-p window)
                   (delete-window window)))
             (error (message (error-message-string err))))))