| 
					
				 | 
			
			
				@@ -51,8 +51,8 @@ Otherwise, return nil." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 SEPARATORS is a regular expression.  When nil, it defaults to 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 \"[ \f\t\n\r\v]+\". 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-Unlike to `split-string', matching SEPARATORS at the beginning 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-and end of string are ignored." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+Unlike `split-string', matching SEPARATORS at the beginning and 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+end of string are ignored." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((separators (or separators "[ \f\t\n\r\v]+"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (when (string-match (concat "\\`" separators) string) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (setq string (replace-match "" nil nil string))) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -124,7 +124,7 @@ text properties." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-string-width (string) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Return width of STRING when displayed in the current buffer. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-Unlike to `string-width', this function takes into consideration 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+Unlike `string-width', this function takes into consideration 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 `invisible' and `display' text properties." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (string-width (org-string-display string))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 |