| 
					
				 | 
			
			
				@@ -2648,8 +2648,8 @@ Return t if successful." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (= top (point-at-bol)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (cdr (assq 'indent org-list-automatic-rules)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (if no-subtree 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		     (error 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		      "First item of list cannot move without its subtree") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     (user-error 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		      "At first item: use S-M-<left/right> to move the whole list") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		   t)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       ;; Determine begin and end points of zone to indent.  If moving 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       ;; more than one item, save them for subsequent moves. 
			 |