Function: forge--fetch-pullreq-source-repo

forge--fetch-pullreq-source-repo is a byte-compiled function defined in forge-gitlab.el.

Signature

(forge--fetch-pullreq-source-repo ARG &rest ARGS)

Implementations

(forge--fetch-pullreq-source-repo (REPO forge-gitlab-repository) CUR CB) in `forge-gitlab.el'.

Undocumented

Source Code

;; Defined in ~/.emacs.d/elpa/forge-20260408.1922/forge-gitlab.el
(cl-defmethod forge--fetch-pullreq-source-repo
  ((repo forge-gitlab-repository) cur cb)
  ;; If the fork no longer exists, then `.source_project_id' is nil.
  ;; This will lead to difficulties later on but there is nothing we
  ;; can do about it.
  (let-alist (car cur)
    (if .source_project_id
        (forge--glab-get repo (format "/projects/%s" .source_project_id) nil
          :errorback (lambda (_err _headers _status _req)
                       (setf (alist-get 'source_project (car cur)) nil)
                       (funcall cb))
          :callback (lambda (value)
                      (setf (alist-get 'source_project (car cur)) value)
                      (funcall cb)))
      (setf (alist-get 'source_project (car cur)) nil)
      (funcall cb))))