diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-09-19 10:17:55 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-09-19 10:17:55 -0400 |
| commit | f9bf73edaca57d1cf8e6730fb425e0b8db31672f (patch) | |
| tree | 7d4813921bc109eec982912b6e74a1c4733441ae | |
| parent | b74a01462d72ae12f626ad6fd6700638e060b324 (diff) | |
| download | emacsconf-el-f9bf73edaca57d1cf8e6730fb425e0b8db31672f.tar.xz emacsconf-el-f9bf73edaca57d1cf8e6730fb425e0b8db31672f.zip | |
fix schedule matching
| -rw-r--r-- | emacsconf-schedule.el | 4 |
1 files 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) |