| 
					
				 | 
			
			
				@@ -17602,12 +17602,16 @@ an item." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ;; shift indentation of others lines to set them as item's 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ;; body. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (let* ((bul (org-list-bullet-string "-")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		   (bul-len (length bul))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		   (bul-len (length bul)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		   (ref-ind (org-get-indentation))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (skip-chars-forward " \t") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (insert bul) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (beginning-of-line 2) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (while (and (< (setq l (1+ l)) l2) (< (point) end)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		(org-indent-line-to (+ (org-get-indentation) bul-len)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		;; Ensure that lines less indented than first one 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		;; still get included in item body. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(org-indent-line-to (+ (max ref-ind (org-get-indentation)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				       bul-len)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(beginning-of-line 2))))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-toggle-heading (&optional nstars) 
			 |