瀏覽代碼

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
John Lee 6 年之前
父節點
當前提交
ba9111a7de
共有 1 個文件被更改,包括 11 次插入3 次删除
  1. 11 3
      lisp/org-agenda.el

+ 11 - 3
lisp/org-agenda.el

@@ -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
-		     ;; a reminder.
-		     ((and (/= current schedule) (/= current repeat)) nil)
+		     ;; No time of day designation if it is only a
+		     ;; reminder, except for habits, which always show
+		     ;; 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)))