| 
					
				 | 
			
			
				@@ -350,15 +350,18 @@ If no footnote is found, return nil." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(type (org-element-type datum))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	   (when (memq type '(footnote-definition footnote-reference)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (throw 'found 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    (list label 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  (org-element-property :begin datum) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  (org-element-property :end datum) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  (replace-regexp-in-string 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			   "[ \t\n]*\\'" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			   "" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			   (buffer-substring-no-properties 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			    (org-element-property :contents-begin datum) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			    (org-element-property :contents-end datum)))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		    (list 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     label 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     (org-element-property :begin datum) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     (org-element-property :end datum) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     (let ((cbeg (org-element-property :contents-begin datum))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		       (if (not cbeg) "" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			 (replace-regexp-in-string 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			  "[ \t\n]*\\'" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			  "" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			  (buffer-substring-no-properties 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			   cbeg 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			   (org-element-property :contents-end datum)))))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        nil)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-footnote-goto-definition (label) 
			 |