diff options
author | Bastien <bzg@gnu.org> | 2021-05-15 09:55:12 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2021-05-15 16:13:49 +0200 |
commit | dd88356d3acf4668f82e6952e4c3b98591d7f2d2 (patch) | |
tree | 8cd5113ed9475a08202dccea9c80a65c26fb1c9b | |
parent | fa3c9c8b69488858ee3eb776980f0add5ed70435 (diff) | |
download | org-mode-dd88356d3acf4668f82e6952e4c3b98591d7f2d2.tar.gz |
lisp/org-inlinetask.el: Silent the byte-compiler
* lisp/org-inlinetask.el (org-inlinetask-promote)
(org-inlinetask-demote): Fix calls to `looking-back'.
-rw-r--r-- | lisp/org-inlinetask.el | 4 |
1 files 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) |