1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-01 08:17:34 +00:00

org-habit: Use cl-lib

* lisp/org-habit.el (org-habit-build-graph): Silence byte-compiler.
This commit is contained in:
Nicolas Goaziou 2016-07-25 15:57:24 +02:00
parent ef38f2ff44
commit 9283e48336

View File

@ -24,16 +24,14 @@
;;
;;; Commentary:
;; This file contains the habit tracking code for Org-mode
;; This file contains the habit tracking code for Org mode
;;; Code:
(require 'cl-lib)
(require 'org)
(require 'org-agenda)
(eval-when-compile
(require 'cl))
(defgroup org-habit nil
"Options concerning habit tracking in Org-mode."
:tag "Org Habit"
@ -368,9 +366,9 @@ current time."
;; number of S-REPEAT hops it takes
;; to get past DONE, with a minimum
;; of one hop.
(incf s
(* (1+ (/ (max (- done s) 0) s-repeat))
s-repeat))
(cl-incf s (* (1+ (/ (max (- done s) 0)
s-repeat))
s-repeat))
(when (= done last-done-date)
(throw :exit s))))))))))
donep)))