| 
					
				 | 
			
			
				@@ -75,7 +75,7 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; Code: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-(eval-when-compile  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(eval-when-compile 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (require 'cl)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (require 'org-macs) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (require 'org-compat) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -1804,8 +1804,6 @@ Initial position of cursor is restored after the changes." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		((and (match-string 3) new-box) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (replace-match new-box nil nil nil 3)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		((match-string 3) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		 ;; (goto-char (or (match-end 2) (match-end 1))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		 ;; (skip-chars-backward " \t") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (looking-at ".*?\\([ \t]*\\[[ X-]\\]\\)") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (replace-match "" nil nil nil 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(t (let ((counterp (match-end 2))) 
			 |