From c0a68ad3fc281f4ae3e7d9a370e08289acba935c Mon Sep 17 00:00:00 2001 From: Jim Ottaway Date: Mon, 27 Feb 2006 10:34:20 +0000 Subject: [PATCH] planner-appt: fix highlighting in plan pages * planner-appt.el (planner-appt-task-highlight): check that a task has today's date git-archimport-id: mwolson@gnu.org--2006-planner-el/planner-el--devel--0--patch-8 --- planner-appt.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/planner-appt.el b/planner-appt.el index 5d072ca..4fee9b7 100644 --- a/planner-appt.el +++ b/planner-appt.el @@ -1566,8 +1566,13 @@ VERBOSE is ignored." (save-excursion (goto-char (planner-line-beginning-position)) (save-match-data - (or (looking-at planner-live-task-regexp) - (looking-at planner-appt-schedule-appt-regexp))))) + (or (and (looking-at planner-live-task-regexp) + (string= (planner-task-date + (planner-current-task-info)) + (planner-today))) + (and + (planner-appt-todays-page-p) + (looking-at planner-appt-schedule-appt-regexp)))))) (planner-highlight-region (match-beginning 1) (match-end 1) @@ -1578,9 +1583,8 @@ VERBOSE is ignored." (defun planner-appt-font-setup () "Hook into `planner-mode'." - (when (planner-appt-todays-page-p) (planner-appt-add-hook 'muse-colors-buffer-hook - 'planner-appt-task-highlight t))) + 'planner-appt-task-highlight t)) ;;; Calendar Marking -- 2.11.4.GIT