| 
					
				 | 
			
			
				@@ -1904,7 +1904,10 @@ When it is nil, all comments will be removed." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (not (equal (char-before (match-end 1)) ?+))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (progn (add-text-properties 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (match-beginning 0) (match-end 0) '(org-protected t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		   (replace-match (format commentsp (match-string 2)) t t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		   (replace-match (org-add-props 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				      (format commentsp (match-string 2)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				      nil 'org-protected t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				  t t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (goto-char (1+ pos)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (replace-match "") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (goto-char (max (point-min) (1- pos)))))))) 
			 |