Ensure modifications to the review buffers occur with buffer selected

lisp/org-roam-review.el

@@ -248,6 +248,13 @@ A higher score means that the node will appear less frequently."
 
 ;;; Review buffers
 
+(defmacro org-roam-review--with-current-review-buffer (&rest body)
+  (declare (indent 0))
+  `(if-let* ((buf (car (org-roam-review-buffers))))
+       (with-current-buffer buf
+         ,@body)
+     (error "No review buffer")))
+
 (defun org-roam-review--daily-file-p (&optional file)
   "Test whether FILE is a daily node.
 
@@ -637,9 +644,7 @@ them as reviewed with `org-roam-review-accept',
         (run-hooks 'org-roam-review-next-node-selected-hook)))))
 
 (defun org-roam-review--update-review-buffer-entry (node)
-  (when-let* ((buf (get-buffer "*org-roam-review*")))
-
-    (with-current-buffer buf
+  (org-roam-review--with-current-review-buffer
     (let ((continue t)
           (found-pos nil)
           (id (org-roam-node-id node)))
@@ -658,7 +663,7 @@ them as reviewed with `org-roam-review-accept',
           (when (oref section node)
             (let ((inhibit-read-only t))
               (put-text-property (line-beginning-position) (line-end-position) 'face 'font-lock-comment-face))
-              (magit-section-hide section))))))))
+            (magit-section-hide section)))))))
 
 (defmacro org-roam-review--transform-selected-sections (&rest body)
   "Execute BODY, possibly over multiple sections.
@@ -678,7 +683,8 @@ Return the affected sections."
                  (magit-section-update-highlight)))
              result))
        ,@body)
-     (org-roam-review--forward-to-uncommented-sibling)))
+     (org-roam-review--with-current-review-buffer
+       (org-roam-review--forward-to-uncommented-sibling))))
 
 (defun org-roam-review--maybe-kill-reviewed-buffer (buf)
   (when (and org-roam-review-kill-reviewed-buffers-p (buffer-live-p buf))