[elpa] externals/org dd88356 06/41: lisp/org-inlinetask.el: Silent the byte-compiler

[ELPA Syncer]

branch: externals/org
commit dd88356d3acf4668f82e6952e4c3b98591d7f2d2
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>

    lisp/org-inlinetask.el: Silent the byte-compiler
    
    * lisp/org-inlinetask.el (org-inlinetask-promote)
    (org-inlinetask-demote): Fix calls to `looking-back'.
---
 lisp/org-inlinetask.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el
index 79146d2..f19353b 100644
--- a/lisp/org-inlinetask.el
+++ b/lisp/org-inlinetask.el
@@ -238,7 +238,7 @@ going below `org-inlinetask-min-level'."
          (setq beg (point))
          (replace-match down-task nil t nil 1)
          (org-inlinetask-goto-end)
-         (if (and (eobp) (looking-back "END\\s-*"))
+         (if (and (eobp) (looking-back "END\\s-*" (point-at-bol)))
               (beginning-of-line)
             (forward-line -1))
          (unless (= (point) beg)
@@ -264,7 +264,7 @@ If the task has an end part, also demote it."
        (setq beg (point))
        (replace-match down-task nil t nil 1)
        (org-inlinetask-goto-end)
-        (if (and (eobp) (looking-back "END\\s-*"))
+        (if (and (eobp) (looking-back "END\\s-*" (point-at-bol)))
               (beginning-of-line)
             (forward-line -1))
        (unless (= (point) beg)