| 
					
				 | 
			
			
				@@ -662,11 +662,12 @@ offer additional commands in a menu." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (type (org-element-type context))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      ;; On white space after element, insert a new footnote. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-     ((> (point) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	 (save-excursion 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	   (goto-char (org-element-property :end context)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	   (skip-chars-backward " \t") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	   (point))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+     ((and context 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	   (> (point) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (save-excursion 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(goto-char (org-element-property :end context)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(skip-chars-backward " \t") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(point)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (org-footnote-new)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      ((eq type 'footnote-reference) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((label (org-element-property :label context))) 
			 |