| 
					
				 | 
			
			
				@@ -136,8 +136,7 @@ CONTENTS is its contents, as a string or nil.  INFO is ignored." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 CONTENTS is nil.  INFO is ignored." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((key (org-element-property :key keyword))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (unless (member key 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    '("AUTHOR" "CREATOR" "DATE" "DESCRIPTION" "EMAIL" "KEYWORDS" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		      "OPTIONS" "TITLE")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		    '("AUTHOR" "CREATOR" "DATE" "EMAIL" "OPTIONS" "TITLE")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (org-element-keyword-interpreter keyword nil)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-org-link (link contents info) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -179,10 +178,6 @@ as a communication channel." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				    (and (plist-get info :with-creator) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(org-string-nw-p (plist-get info :creator)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(format "#+CREATOR: %s\n" (plist-get info :creator))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-   (and (org-string-nw-p (plist-get info :keywords)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(format "#+KEYWORDS: %s\n" (plist-get info :keywords))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-   (and (org-string-nw-p (plist-get info :description)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(format "#+DESCRIPTION: %s\n" (plist-get info :description))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				    contents)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-org-section (section contents info) 
			 |