[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 8544f55 1/4: lisp/org-inlinetask.el: Silent
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 8544f55 1/4: lisp/org-inlinetask.el: Silent the byte-compiler |
Date: |
Sat, 15 May 2021 04:57:13 -0400 (EDT) |
branch: externals-release/org
commit 8544f555ac04ebc3fb55cd5bc522deadfb9970f8
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 a1e4ef2..d5e01fe 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)