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:
parent
ef38f2ff44
commit
9283e48336
@ -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)))
|
||||
|
Loading…
Reference in New Issue
Block a user