浏览代码

Agenda: Fix bug with entry text in empty entries

Report by Rainer Stengele
Carsten Dominik 15 年之前
父节点
当前提交
fa5d97e28c
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org-agenda.el

+ 2 - 2
lisp/org-agenda.el

@@ -2304,9 +2304,9 @@ This will ignore drawers etc, just get the text."
 	    (save-restriction
 	      (widen)
 	      (goto-char marker)
-	      (beginning-of-line 2)
+	      (end-of-line 1)
 	      (setq txt (buffer-substring
-			 (point)
+			 (min (1+ (point)) (point-max))
 			 (progn (outline-next-heading) (point)))
 		    drawer-re org-drawer-regexp
 		    kwd-time-re (concat "^[ \t]*" org-keyword-time-regexp