From d6e407961522831bc43f5a584dfae4a4f97d7235 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 11 Feb 2008 02:45:52 +0000 Subject: [PATCH] Use :html-extension in org-export-html-extension. So that :html-extension in projects of `org-publish-project-alist' is correctly honoured. --- org.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/org.el b/org.el index 15c8e375a..298242c5a 100644 --- a/org.el +++ b/org.el @@ -24832,6 +24832,7 @@ the body tags themselves." (org-infile-export-plist))) (style (plist-get opt-plist :style)) + (html-extension (plist-get opt-plist :html-extension)) (link-validate (plist-get opt-plist :link-validation-function)) valid thetoc have-headings first-heading-pos (odd org-odd-levels-only) @@ -24857,7 +24858,7 @@ the body tags themselves." (org-entry-get (region-beginning) "EXPORT_FILE_NAME" t)) (file-name-nondirectory buffer-file-name))) - "." org-export-html-extension) + "." html-extension) (file-name-as-directory (org-export-directory :html opt-plist))))) (current-dir (if buffer-file-name @@ -25213,7 +25214,7 @@ lang=\"%s\" xml:lang=\"%s\"> (string-match "\\.org$" thefile)) (setq thefile (concat (substring thefile 0 (match-beginning 0)) - "." org-export-html-extension)) + "." html-extension)) (if (and search ;; make sure this is can be used as target search (not (string-match "^[0-9]*$" search))