From 8544f555ac04ebc3fb55cd5bc522deadfb9970f8 Mon Sep 17 00:00:00 2001 From: Bastien Date: Sat, 15 May 2021 09:55:12 +0200 Subject: [PATCH] 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 a1e4ef2fc..d5e01fe44 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)