Function: activities--kill-buffers

activities--kill-buffers is a byte-compiled function defined in activities.el.

Signature

(activities--kill-buffers)

Documentation

Kill buffers that are only in the current frame's/tab's buffer list.

Only does so when activities-kill-buffers is non-nil.

Source Code

;; Defined in ~/.emacs.d/elpa/activities-0.7.2/activities.el
(defun activities--kill-buffers ()
  ;; TODO: Frame parameter name should be prefixed with `activities'.
  "Kill buffers that are only in the current frame's/tab's buffer list.
Only does so when `activities-kill-buffers' is non-nil."
  (when activities-kill-buffers
    (let* ((frame-buffers (cl-reduce (lambda (acc frame)
                                       (seq-difference acc (frame-parameter frame 'buffer-list)))
                                     (remove (selected-frame) (frame-list))
                                     :initial-value (frame-parameter nil 'buffer-list)))
           (target-buffers (cl-remove-if (lambda (buffer)
                                           (run-hook-with-args-until-success
                                            'activities-anti-kill-predicates buffer))
                                         frame-buffers)))
      (mapc #'kill-buffer target-buffers))))