| 
					
				 | 
			
			
				@@ -758,6 +758,18 @@ Optional argument REGEXP selects variables to clone." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; Visibility 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defun org-flag-region (from to flag spec) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Hide or show lines from FROM to TO, according to FLAG. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+SPEC is the invisibility spec, as a symbol." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (remove-overlays from to 'invisible spec) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  ;; Use `front-advance' since text right before to the beginning of 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  ;; the overlay belongs to the visible line than to the contents. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (when flag 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (let ((o (make-overlay from to nil 'front-advance))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (overlay-put o 'evaporate t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (overlay-put o 'invisible spec) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (overlay-put o 'isearch-open-invisible #'delete-overlay)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-outline-overlay-data (&optional use-markers) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Return a list of the locations of all outline overlays. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 These are overlays with the `invisible' property value `outline'. 
			 |