| 
					
				 | 
			
			
				@@ -1,4 +1,4 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-;;; org-habit.el --- The habit tracking code for Org-mode 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+;;; org-habit.el --- The habit tracking code for Org -*- lexical-binding: t; -*- 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;; Copyright (C) 2009-2015 Free Software Foundation, Inc. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -286,7 +286,6 @@ Habits are assigned colors on the following basis: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    schedule's repeat period." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let* ((scheduled (or scheduled-days (org-habit-scheduled habit))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (s-repeat (org-habit-scheduled-repeat habit)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	 (scheduled-end (+ scheduled (1- s-repeat))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (d-repeat (org-habit-deadline-repeat habit)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (deadline (if scheduled-days 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		       (+ scheduled-days (- d-repeat s-repeat)) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -386,7 +385,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 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (let ((inhibit-read-only t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(buffer-invisibility-spec '(org-link)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(moment (time-subtract (current-time) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			       (list 0 (* 3600 org-extend-today-until) 0)))) 
			 |