| 
					
				 | 
			
			
				@@ -3054,7 +3054,9 @@ images, set it to: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 DESC is the description part of the link, or the empty string. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 INFO is a plist holding contextual information.  See 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 `org-export-data'." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (let* ((link-org-files-as-html-maybe 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (let* ((html-ext (plist-get info :html-extension)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (dot (when (> (length html-extension) 0) ".")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (link-org-files-as-html-maybe 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (lambda (raw-path info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ;; Treat links to `file.org' as links to `file.html', if 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ;; needed.  See `org-html-link-org-files-as-html'. 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -3062,8 +3064,7 @@ INFO is a plist holding contextual information.  See 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     ((and (plist-get info :html-link-org-files-as-html) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		   (string= ".org" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			    (downcase (file-name-extension raw-path ".")))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	      (concat (file-name-sans-extension raw-path) "." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		      (plist-get info :html-extension))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (concat (file-name-sans-extension raw-path) dot html-ext)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (t raw-path)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (type (org-element-property :type link)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (raw-path (org-element-property :path link)) 
			 |