mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

Fixed incorrect value returned from `org-habit-deadline'

Browse Source
This commit is contained in:
John Wiegley 2010-06-30 00:39:31 -04:00
parent aa4b407d4d
commit 706129c0c4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-habit.el
View File

@ -178,8 +178,10 @@ This list represents a \"habit\" for the rest of this module."
(defsubst org-habit-deadline (habit)
(let ((deadline (nth 2 habit)))
(or deadline
(+ (org-habit-scheduled habit)
(1- (org-habit-scheduled-repeat habit))))))
(if (nth 3 habit)
(+ (org-habit-scheduled habit)
(1- (org-habit-scheduled-repeat habit)))
(org-habit-scheduled habit)))))
(defsubst org-habit-deadline-repeat (habit)
(or (nth 3 habit)
(org-habit-scheduled-repeat habit)))