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

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

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba-orgmode.org b/bba-orgmode.org
index f7c4850ecb2c2ab618136a012a1c7fc8c2edd56c..6761d4e782ecf7bf4686d87a8df6f9af790932ed 100644 (file)
--- 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")