| 
					
				 | 
			
			
				@@ -257,7 +257,7 @@ are set to, respectively, length L and W. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 If H is non-nil, `line-prefix' will be starred.  If H is 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 `inline', the first star will have `org-warning' face. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-Assume point is at bol." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+Assume point is at beginning of line." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((line (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	       ((eq 'inline h) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(let ((stars (aref org-indent-stars 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -270,7 +270,8 @@ Assume point is at bol." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	       (t (aref org-indent-strings 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			(min l org-indent-max))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(wrap (aref org-indent-strings (min w org-indent-max)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (add-text-properties (point) (point-at-eol) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    ;; Add properties down to the next line to indent empty lines. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (add-text-properties (point) (min (1+ (point-at-eol)) (point-max)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			 `(line-prefix ,line wrap-prefix ,wrap))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (forward-line 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -307,7 +308,7 @@ you want to use this feature." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        ;;    properties depending on the type of line (headline, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        ;;    inline task, item or other). 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (with-silent-modifications 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	 (while (< (point) end) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (while (and (<= (point) end) (not (eobp))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	   (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ;; When in async mode, check if interrupt is required. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ((and async (input-pending-p)) (throw 'interrupt (point))) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -322,8 +323,6 @@ you want to use this feature." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			      org-indent-initial-resume-delay) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    nil #'org-indent-initialize-buffer)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (throw 'interrupt (point))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	    ;; Empty line: do nothing. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	    ((eolp) (forward-line 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ;; Headline or inline task. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ((looking-at org-outline-regexp) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (let* ((nstars (- (match-end 0) (match-beginning 0) 1)) 
			 |