mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:37:52 +00:00
org-habit: Use lexical binding
* lisp/org-habit.el (org-habit-insert-consistency-graphs): Silence byte-compiler.
This commit is contained in:
parent
3090bb29c8
commit
8bbb789757
|
@ -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))))
|
||||
|
|
Loading…
Reference in a new issue