|
@@ -90,7 +90,7 @@
|
|
|
(defvar org-mobile-force-id-on-agenda-items) ; defined in org-mobile.el
|
|
|
(defvar org-habit-show-habits) ; defined in org-habit.el
|
|
|
(defvar org-habit-show-habits-only-for-today)
|
|
|
-(defvar org-habit-show-all-today nil)
|
|
|
+(defvar org-habit-show-all-today)
|
|
|
|
|
|
;; Defined somewhere in this file, but used before definition.
|
|
|
(defvar org-agenda-buffer-name "*Org Agenda*")
|
|
@@ -5717,6 +5717,7 @@ FRACTION is what fraction of the head-warning time has passed."
|
|
|
;; org-is-habit-p uses org-entry-get, which is expansive
|
|
|
;; so we go extra mile to only call it once
|
|
|
(and todayp
|
|
|
+ (boundp 'org-habit-show-all-today)
|
|
|
org-habit-show-all-today
|
|
|
(setq did-habit-check-p t)
|
|
|
(setq habitp (and (functionp 'org-is-habit-p)
|
|
@@ -5741,6 +5742,7 @@ FRACTION is what fraction of the head-warning time has passed."
|
|
|
(if habitp
|
|
|
(if (or (not org-habit-show-habits)
|
|
|
(and (not todayp)
|
|
|
+ (boundp 'org-habit-show-habits-only-for-today)
|
|
|
org-habit-show-habits-only-for-today))
|
|
|
(throw :skip nil))
|
|
|
(if (and
|