From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Tue, 18 Jun 2024 12:50:57 +0000 (+0200)
Subject: fix bba-copy-and-yank-org-src-block
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=b99c10dc52b3b6b182a3dc937f53277d6c4a2c8d;p=emacsconfig.git

fix bba-copy-and-yank-org-src-block

* bba-orgmode.org: fix search for begin_src.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/bba-orgmode.org b/bba-orgmode.org
index f7c4850e..6761d4e7 100644
--- a/bba-orgmode.org
+++ b/bba-orgmode.org
@@ -807,8 +807,8 @@ This is helpful in training sessions.
         (push-mark)
         (re-search-backward "\#\\+BEGIN_SRC")
         (forward-line -1)
-        (if (looking-at "\#\\+RESULTS:")(re-search-backward "\#\\+BEGIN_SRC"))
-        (forward-line -1)
+        (if (looking-at "\#\\+RESULTS:")(progn (re-search-backward "\#\\+BEGIN_SRC")
+          (forward-line -1)))
         (if  (not (looking-at "\#"))(forward-line))
         (set-mark-command nil)
         (re-search-forward "\#\\+END_SRC")