From f9bf73edaca57d1cf8e6730fb425e0b8db31672f Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Fri, 19 Sep 2025 10:17:55 -0400 Subject: fix schedule matching --- emacsconf-schedule.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index 260ef9c..b73d61b 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -719,14 +719,14 @@ Both start and end time are tested." (goto-char (point-min)) (while (not (eobp)) (cond - ((looking-at "\\([<>]\\)=? *\\([0-9]+:[0-9]+\\) *EST \\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\|Sat\\|Sun\\)?") + ((looking-at "\\([<>]\\)=? *\\([0-9]+:[0-9]+\\) *EST\\( [0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\|Sat\\|Sun\\)?") (push (and (string= (match-string 1) ">") ; start time (match-string 2)) result) (push (and (string= (match-string 1) "<") ; end time (match-string 2)) result) - (push (match-string 3) result) + (push (and (match-string 3) (string-trim (match-string 3))) result) (goto-char (match-end 0))) ((looking-at " or ") (push 'or result) -- cgit v1.2.3