소스 검색

org-element: Correctly get section beginning

* contrib/lisp/org-element.el (org-element-section-parser): Fix
  `:begin' property, which was preventing correct parsing of text
  before first headline.
Nicolas Goaziou 13 년 전
부모
커밋
e09f92bf7e
1개의 변경된 파일2개의 추가작업 그리고 3개의 파일을 삭제
  1. 2 3
      contrib/lisp/org-element.el

+ 2 - 3
contrib/lisp/org-element.el

@@ -736,9 +736,8 @@ and `:post-blank' keywords."
     ;; line after previous headline.
     (let ((begin (save-excursion
 		   (org-with-limited-levels (outline-previous-heading))
-		   (forward-line)
-		   (org-skip-whitespace)
-		   (point-at-bol)))
+		   (if (bobp) (point)
+		     (forward-line) (org-skip-whitespace) (point-at-bol))))
 	  (end (progn (org-with-limited-levels (outline-next-heading))
 		      (point)))
 	  (pos-before-blank (progn (skip-chars-backward " \r\t\n")