瀏覽代碼

Fix bug in org-context at beginning-of-buffer

Patch by Michael Sperber
Carsten Dominik 15 年之前
父節點
當前提交
8c4b3564df
共有 2 個文件被更改,包括 3 次插入1 次删除
  1. 2 0
      lisp/ChangeLog
  2. 1 1
      lisp/org.el

+ 2 - 0
lisp/ChangeLog

@@ -1,5 +1,7 @@
 2009-10-01  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-context): Call `bobp', not `eobp'.
+
 	* org-clock.el (org-clock-cancel): Remove quotes from marker
 	variables.
 

+ 1 - 1
lisp/org.el

@@ -16074,7 +16074,7 @@ and :keyword."
 	(push (org-point-in-group p 2 :todo-keyword) clist)
 	(push (org-point-in-group p 4 :tags) clist))
       (goto-char p)
-      (skip-chars-backward "^[\n\r \t") (or (eobp) (backward-char 1))
+      (skip-chars-backward "^[\n\r \t") (or (bobp) (backward-char 1))
       (if (looking-at "\\[#[A-Z0-9]\\]")
 	  (push (org-point-in-group p 0 :priority) clist)))