forge-read-topic-{labels,marks}: Fix type predicate

Closes #731.
magit · Dec 21, 2024 · a69b87d · a69b87d
1 parent 3b80ace
commit a69b87d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lisp/forge-topic.el b/lisp/forge-topic.el
@@ -715,14 +715,14 @@ can be selected from the start."
      "Labels: "
      (forge--format-labels (and obj (forge-get-repository obj)))
      nil t
-     (and (forge-topic-p obj)
+     (and (cl-typep obj 'forge-topic)
           (forge--format-labels obj crm-separator)))))
 
 (defun forge-read-topic-marks (&optional obj)
   (let ((crm-separator ","))
     (magit-completing-read-multiple
      "Marks: " (forge--format-marks) nil t
-     (and (forge-topic-p obj)
+     (and (cl-typep obj 'forge-topic)
           (forge--format-marks obj crm-separator)))))
 
 (defun forge-read-topic-assignees (&optional topic)