Browse Source

Use :html-extension in org-export-html-extension.

So that :html-extension in projects of `org-publish-project-alist'
is correctly honoured.
Bastien Guerry 11 years ago
parent
commit
d6e4079615
1 changed files with 3 additions and 2 deletions
  1. 3 2
      org.el

+ 3 - 2
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))