| 
					
				 | 
			
			
				@@ -18395,7 +18395,7 @@ This command does many different things, depending on context: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			((equal arg '(4)) nil) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			((equal "[X]" cbox) "[ ]") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			(t "[X]")))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	  (if firstp 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	  (if (and firstp arg) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      ;; If at first item of sub-list, remove check-box from 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      ;; every item at the same level. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (mapc 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -18432,7 +18432,9 @@ This command does many different things, depending on context: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      ;; If at first item of sub-list, add check-box to every 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      ;; item at the same level. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (mapc 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	       (lambda (pos) (org-list-set-checkbox pos new-struct "[ ]")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       (lambda (pos) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		 (unless (org-list-get-checkbox pos new-struct) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		   (org-list-set-checkbox pos new-struct "[ ]"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	       (org-list-get-all-items 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(point-at-bol) new-struct (org-list-prevs-alist new-struct))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (org-list-set-checkbox (point-at-bol) new-struct "[ ]"))) 
			 |