org-export: Fix subtree export when parent section is empty
authorNicolas Goaziou <n.goaziou@gmail.com>
Sat, 26 Jan 2013 17:05:56 +0000 (18:05 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Sat, 26 Jan 2013 17:05:56 +0000 (18:05 +0100)
* contrib/lisp/org-export.el (org-export--get-subtree-options): When
  point is at an headline and subtree export is called, make sure
  export properties are extracted from parent headline.
* testing/lisp/test-org-export.el: Add test.

contrib/lisp/org-export.el
testing/lisp/test-org-export.el

index 8702e41..c54805d 100644 (file)
@@ -1447,7 +1447,7 @@ for export.  Return options as a plist."
   (org-with-wide-buffer
    (let (prop plist)
      ;; Make sure point is at an heading.
-     (unless (org-at-heading-p) (org-back-to-heading t))
+     (if (org-at-heading-p) (org-up-heading-safe) (org-back-to-heading t))
      ;; Take care of EXPORT_TITLE. If it isn't defined, use headline's
      ;; title as its fallback value.
      (when (setq prop (or (org-entry-get (point) "EXPORT_TITLE")
index 1152940..858ccda 100644 (file)
@@ -226,7 +226,13 @@ Paragraph"
   :END:
 Paragraph"
     (should (equal (plist-get (org-export-get-environment nil t) :date)
-                  '("29-03-2012")))))
+                  '("29-03-2012"))))
+  ;; Still grab correct options when section above is empty.
+  (should
+   (equal '("H1")
+         (org-test-with-temp-text "* H1\n** H11\n** H12"
+           (progn (forward-line 2)
+                  (plist-get (org-export-get-environment nil t) :title))))))
 
 (ert-deftest test-org-export/handle-options ()
   "Test if export options have an impact on output."