Function: magit-repolist--marked-repos

magit-repolist--marked-repos is a byte-compiled function defined in magit-repos.el.

Signature

(magit-repolist--marked-repos &optional CHAR)

Documentation

Return marked repositories.

If optional CHAR is non-nil, then only return repositories marked with that character.

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-repos.el
(defun magit-repolist--marked-repos (&optional char)
  "Return marked repositories.
If optional CHAR is non-nil, then only return repositories
marked with that character."
  (let (c list)
    (save-excursion
      (goto-char (point-min))
      (while (not (eobp))
        (setq c (char-after))
        (unless (eq c ?\s)
          (if char
              (when (eq c char)
                (push (tabulated-list-get-id) list))
            (push (cons c (tabulated-list-get-id)) list)))
        (forward-line)))
    list))