ソースを参照

Merge branch 'master' of orgmode.org:org-mode

Bastien Guerry 12 年 前
コミット
7b7e876319
2 ファイル変更7 行追加1 行削除
  1. 1 1
      lisp/org-element.el
  2. 6 0
      testing/lisp/test-org-element.el

+ 1 - 1
lisp/org-element.el

@@ -3547,7 +3547,7 @@ position of point and CDR is nil."
       ;; They will be parsed as a paragraph.
       (when (looking-at "[ \t]*$") (goto-char origin) (setq output nil))
       ;; Return value.
-      (cons (point) output))))
+      (cons origin output))))
 
 
 

+ 6 - 0
testing/lisp/test-org-element.el

@@ -165,6 +165,12 @@ Some other text
 	   :name
 	   (org-test-with-temp-text "#+NAME: para\nParagraph"
 	     (org-element-at-point)))))
+  (should
+   (= 1
+      (org-element-property
+       :begin
+       (org-test-with-temp-text "#+NAME: para\nParagraph"
+	 (org-element-at-point)))))
   ;; Parse multiple keywords.
   (should
    (equal