beancount-foreach-transaction macro cleanup

beancount.el

@@ -1279,15 +1279,11 @@ Essentially a much simplified version of `next-line'."
 
 Evaluate BODY for every transaction with point set to transaction
 beginning."
-  (declare (indent 1))
+  (declare (indent 0) (debug t))
   `(save-excursion
      (goto-char (point-min))
-     ;; maybe within a transaction already
-     (when (beancount-inside-transaction-p)
-       ,@body)
-
-     ;; all the other transactions
-     (beancount-goto-next-transaction)
+     (unless (beancount-inside-transaction-p)
+       (beancount-goto-next-transaction))
      (while (beancount-inside-transaction-p)
        ,@body
        (beancount-goto-next-transaction))))
@@ -1296,15 +1292,15 @@ beginning."
   "Hide everything but transactions marked with a TAG."
   (beancount--hide-region (point-min) (point-max))
   (beancount-foreach-transaction
-   (when (beancount--current-line-rematch-p (regexp-quote tag))
-     (beancount--show-current-transaction))))
+    (when (beancount--current-line-rematch-p (regexp-quote tag))
+      (beancount--show-current-transaction))))
 
 (defun beancount-link-show (link)
   "Hide everything but transactions marked with a LINK."
   (beancount--hide-region (point-min) (point-max))
   (beancount-foreach-transaction
-      (when (beancount--current-line-rematch-p (regexp-quote link))
-        (beancount--show-current-transaction))))
+    (when (beancount--current-line-rematch-p (regexp-quote link))
+      (beancount--show-current-transaction))))
 
 (defun beancount--tag-clicked (pos)
   "Handle a tag click by only showing transactions with the link at