forked from mirrors/org-mode
lisp/org-inlinetask.el: Silent the byte-compiler
* lisp/org-inlinetask.el (org-inlinetask-promote) (org-inlinetask-demote): Fix calls to `looking-back'.
This commit is contained in:
parent
8b18405857
commit
8544f555ac
|
@ -238,7 +238,7 @@ going below `org-inlinetask-min-level'."
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
(replace-match down-task nil t nil 1)
|
(replace-match down-task nil t nil 1)
|
||||||
(org-inlinetask-goto-end)
|
(org-inlinetask-goto-end)
|
||||||
(if (and (eobp) (looking-back "END\\s-*"))
|
(if (and (eobp) (looking-back "END\\s-*" (point-at-bol)))
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(forward-line -1))
|
(forward-line -1))
|
||||||
(unless (= (point) beg)
|
(unless (= (point) beg)
|
||||||
|
@ -264,7 +264,7 @@ If the task has an end part, also demote it."
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
(replace-match down-task nil t nil 1)
|
(replace-match down-task nil t nil 1)
|
||||||
(org-inlinetask-goto-end)
|
(org-inlinetask-goto-end)
|
||||||
(if (and (eobp) (looking-back "END\\s-*"))
|
(if (and (eobp) (looking-back "END\\s-*" (point-at-bol)))
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(forward-line -1))
|
(forward-line -1))
|
||||||
(unless (= (point) beg)
|
(unless (= (point) beg)
|
||||||
|
|
Loading…
Reference in New Issue