فهرست منبع

lisp/org-inlinetask.el: Silent the byte-compiler

* lisp/org-inlinetask.el (org-inlinetask-promote)
(org-inlinetask-demote): Fix calls to `looking-back'.
Bastien 4 سال پیش
والد
کامیت
8544f555ac
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      lisp/org-inlinetask.el

+ 2 - 2
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)