| 
					
				 | 
			
			
				@@ -305,7 +305,7 @@ current time." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-habit-insert-consistency-graphs (&optional line) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Insert consistency graph for any habitual tasks." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((inhibit-read-only t) l c 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(buffer-invisibility-spec nil) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(buffer-invisibility-spec '(org-link)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(moment (time-subtract (current-time) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			       (list 0 (* 3600 org-extend-today-until) 0)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (save-excursion 
			 |