forge-current-repository: Remove demand argument again

This argument was added in [1: 186e800], but isn't actually useful
for any of the current callers.  This restores `forge-pull's ability
to pull a repository that isn't in the database yet or which is still
sparse.

1: 2023-09-21 186e800
   Improve forge-*-at-point and forge-current-* functions

lisp/forge-commands.el

@@ -148,12 +148,13 @@ If pulling is too slow, then also consider setting the Git variable
   (interactive
    (list nil
          (and current-prefix-arg
-              (not (forge-current-repository 'full))
+              (let ((repo (forge-current-repository)))
+                (or (not repo) (oref repo sparse-p)))
               (forge-read-date "Limit pulling to topics updates since: "))
          t))
   (let (create)
-    (unless repo
-      (setq repo (forge-current-repository 'full))
+    (when (or (not repo) (oref repo sparse-p))
+      (setq repo (forge-current-repository))
       (unless repo
         (setq repo (forge-get-repository 'create))
         (setq create t)))

lisp/forge-list.el

@@ -413,7 +413,7 @@ Must be set before `forge-list' is loaded.")
   (interactive)
   (catch 'add-instead
     (unless (derived-mode-p 'forge-topic-list-mode)
-      (let ((repo (forge-current-repository nil)))
+      (let ((repo (forge-current-repository)))
         (cond
          ((or (not repo) (not (oref repo sparse-p))))
          ((yes-or-no-p

lisp/forge-repo.el

@@ -221,13 +221,10 @@ See `forge-alist' for valid Git hosts."
 
 ;;;; Current
 
-(defun forge-current-repository (&optional demand)
-  "Return the repository at point or being visited.
-If there is no such repository and DEMAND is non-nil, then signal
-an error."
+(defun forge-current-repository ()
+  "Return the repository at point or being visited."
   (or (forge-repository-at-point)
-      (forge-get-repository nil)
-      (and demand (user-error "No current repository"))))
+      (forge-get-repository nil)))
 
 (defun forge-repository-at-point (&optional demand)
   "Return the repository at point.