| 
					
				 | 
			
			
				@@ -1566,25 +1566,26 @@ INFO is the current state of the export process, as a plist." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (org-html-html5-p info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-html-close-tag (tag attr info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  "Close TAG. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-ATTR specifies additional attributes, as a string.  INFO is 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-a property list containing current export state." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Return close-tag for string TAG. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ATTR specifies additional attributes.  INFO is a property list 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+containing current export state." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (concat "<" tag 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (org-string-nw-p (concat " " attr)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (if (org-html-xhtml-p info) " />" ">"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-html-doctype (info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  "Return correct html doctype tag from `org-html-doctype-alist', 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-or the literal value of :html-doctype from INFO if :html-doctype 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-is not found in the alist. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-INFO is a plist used as a communication channel." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Return correct HTML doctype tag. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+INFO is a plist used as a communication channel.  Doctype tag is 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+extracted from `org-html-doctype-alist', or the literal value 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+of :html-doctype from INFO if :html-doctype is not found in the 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+alist." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((dt (plist-get info :html-doctype))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (or (cdr (assoc dt org-html-doctype-alist)) dt))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-html--make-attribute-string (attributes) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Return a list of attributes, as a string. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-ATTRIBUTES is a plist where values are either strings or nil. An 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-attributes with a nil value will be omitted from the result." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ATTRIBUTES is a plist where values are either strings or nil.  An 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+attribute with a nil value will be omitted from the result." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let (output) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (dolist (item attributes (mapconcat 'identity (nreverse output) " ")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (cond ((null item) (pop output)) 
			 |