瀏覽代碼

Can't insert new item after `org-list-bottom-point' anymore.

Nicolas Goaziou 15 年之前
父節點
當前提交
a42f8066d4
共有 2 個文件被更改,包括 4 次插入2 次删除
  1. 2 1
      lisp/org-list.el
  2. 2 1
      lisp/org-timer.el

+ 2 - 1
lisp/org-list.el

@@ -697,7 +697,8 @@ new item will be created before the current one. Return t when
 things worked, nil when we are not in an item, or item is
 things worked, nil when we are not in an item, or item is
 invisible."
 invisible."
   (unless (or (not (org-in-item-p))
   (unless (or (not (org-in-item-p))
-	      (org-invisible-p))
+	      (org-invisible-p)
+	      (< (org-list-bottom-point) (point)))
     (if (save-excursion
     (if (save-excursion
 	  (org-beginning-of-item)
 	  (org-beginning-of-item)
 	  (org-at-item-timer-p))
 	  (org-at-item-timer-p))

+ 2 - 1
lisp/org-timer.el

@@ -203,7 +203,8 @@ it in the buffer."
   (cond
   (cond
    ;; In a timer list, insert with `org-list-insert-item-generic'.
    ;; In a timer list, insert with `org-list-insert-item-generic'.
    ((and (org-in-item-p)
    ((and (org-in-item-p)
-	 (save-excursion (org-beginning-of-item) (org-at-item-timer-p)))
+	 (save-excursion (org-beginning-of-item) (org-at-item-timer-p))
+	 (>= (org-list-bottom-point) (point)))
     (org-list-insert-item-generic
     (org-list-insert-item-generic
      (point) nil (concat (org-timer (when arg '(4)) t) ":: ")))
      (point) nil (concat (org-timer (when arg '(4)) t) ":: ")))
    ;; In a list of another type, don't break anything: throw an error.
    ;; In a list of another type, don't break anything: throw an error.