diff options
| author | T.F. Torrey <tftorrey@tftorrey.com> | 2012-09-02 13:08:19 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-09-02 13:08:19 +0200 |
| commit | c7b3c56efd63eaa54428c73c15dea4ec134cb11f (patch) | |
| tree | 038589c292352c57dd56f6e763887958490ece11 | |
| parent | f011496cebc63b002464fb07785068db16951d3a (diff) | |
| download | org-mode-c7b3c56efd63eaa54428c73c15dea4ec134cb11f.tar.gz | |
org-exp.el: Fix export of subtree with HTML_CONTAINER_CLASS
* org-exp.el (org-export-remember-html-container-classes):
Allow exporting a single subtree with HTML_CONTAINER_CLASS
property.
TINYCHANGE
| -rw-r--r-- | lisp/org-exp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el index c901a88..d76a295 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -1476,8 +1476,10 @@ the current file." "^[ \t]*:HTML_CONTAINER_CLASS:[ \t]+\\(.+\\)$" nil t) (setq class (match-string 1)) (save-excursion - (org-back-to-heading t) - (put-text-property (point-at-bol) (point-at-eol) 'html-container-class class))))) + (when (re-search-backward "^\\*" (point-min) t) + (org-back-to-heading t) + (put-text-property (point-at-bol) (point-at-eol) + 'html-container-class class)))))) (defvar org-export-format-drawer-function nil "Function to be called to format the contents of a drawer. |