mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:07:46 +00:00
org-habit: Always show time of day designation for habits
* org-agenda.el (org-agenda-get-scheduled): Always show the time of day designation for habits TINYCHANGE
This commit is contained in:
parent
ba1fba147f
commit
ba9111a7de
|
@ -6257,9 +6257,17 @@ scheduled items with an hour specification like [h]h:mm."
|
||||||
(head (buffer-substring (point) (line-end-position)))
|
(head (buffer-substring (point) (line-end-position)))
|
||||||
(time
|
(time
|
||||||
(cond
|
(cond
|
||||||
;; No time of day designation if it is only
|
;; No time of day designation if it is only a
|
||||||
;; a reminder.
|
;; reminder, except for habits, which always show
|
||||||
((and (/= current schedule) (/= current repeat)) nil)
|
;; the time of day. Habits are an exception
|
||||||
|
;; because if there is a time of day, that is
|
||||||
|
;; interpreted to mean they should usually happen
|
||||||
|
;; then, even if doing the habit was missed.
|
||||||
|
((and
|
||||||
|
(not habitp)
|
||||||
|
(/= current schedule)
|
||||||
|
(/= current repeat))
|
||||||
|
nil)
|
||||||
((string-match " \\([012]?[0-9]:[0-9][0-9]\\)" s)
|
((string-match " \\([012]?[0-9]:[0-9][0-9]\\)" s)
|
||||||
(concat (substring s (match-beginning 1)) " "))
|
(concat (substring s (match-beginning 1)) " "))
|
||||||
(t 'time)))
|
(t 'time)))
|
||||||
|
|
Loading…
Reference in a new issue