| 
					
				 | 
			
			
				@@ -896,7 +896,8 @@ holding contextual information." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (t 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (concat (format "@node %s\n" (org-texinfo--get-node headline info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		  (format section-fmt full-text) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		  contents))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		  contents "\n" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		  (org-texinfo-make-menu headline info)))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-texinfo-format-headline-default-function 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (todo _todo-type priority text tags) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -1359,14 +1360,11 @@ contextual information." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;;; Section 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-(defun org-texinfo-section (section contents info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defun org-texinfo-section (section contents _info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Transcode a SECTION element from Org to Texinfo. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-CONTENTS holds the contents of the section.  INFO is a plist 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-holding contextual information." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (let ((parent (org-export-get-parent-headline section))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (when parent			;ignore very first section 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (org-trim 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-       (concat contents "\n" (org-texinfo-make-menu parent info)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+CONTENTS holds the contents of the section." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (and (org-export-get-parent-headline section) ;ignore first section 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+       contents)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;;; Special Block 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 |