Function: sesman-more-recent-p

sesman-more-recent-p is a byte-compiled function defined in sesman.el.

Signature

(sesman-more-recent-p BUFS1 BUFS2)

Documentation

Return t if BUFS1 is more recent than BUFS2.

BUFS1 and BUFS2 are either buffers or lists of buffers. When lists of buffers, most recent buffers from each list are considered. To be used primarily in sesman-more-relevant-p methods when session objects are buffers.

Source Code

;; Defined in ~/.emacs.d/elpa/sesman-20240417.1723/sesman.el
(defun sesman-more-recent-p (bufs1 bufs2)
  "Return t if BUFS1 is more recent than BUFS2.
BUFS1 and BUFS2 are either buffers or lists of buffers.  When lists of
buffers, most recent buffers from each list are considered.  To be used
primarily in `sesman-more-relevant-p' methods when session objects are
buffers."
  (let ((bufs1 (if (bufferp bufs1) (list bufs1) bufs1))
        (bufs2 (if (bufferp bufs2) (list bufs2) bufs2)))
    (eq 1 (seq-some (lambda (b)
                      (if (member b bufs1)
                          1
                        (when (member b bufs2)
                          -1)))
                    (buffer-list)))))