Fix time regexp in org-get-entries-from-diary

[Thomas Fitzsimmons <fitzsim@fitzsim.org>]

[-- Attachment #1: Type: text/plain, Size: 242 bytes --]

Dear Org developers,

I filed a bug report in Emacs debbugs, but probably should have sent it
here instead:

   http://debbugs.gnu.org/cgi/bugreport.cgi?bug=38599

The attached patch appears to fix the bug.  Does it look OK?

Thanks,
Thomas


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Fix-time-regexp-in-org-get-entries-from-diary.patch --]
[-- Type: text/x-diff, Size: 951 bytes --]

From 6102f07d61ee5d128701b7d3799b2e278aa79248 Mon Sep 17 00:00:00 2001
From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Sun, 15 Dec 2019 12:20:05 -0500
Subject: [PATCH] Fix time regexp in org-get-entries-from-diary

* lisp/org-agenda.el (org-get-entries-from-diary): Make time regular
expression more precise.

Reported-by: Justin Abrahms <justin@abrah.ms>
---
 lisp/org-agenda.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 6391e0e9c..f07c86b9a 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5135,6 +5135,7 @@ (defun org-get-entries-from-diary (date)
 	  (cons 'org-diary-default-entry diary-list-entries-hook))
 	 (diary-file-name-prefix nil) ; turn this feature off
 	 (diary-modify-entry-list-string-function 'org-modify-diary-entry-string)
+	 (diary-time-regexp (concat "^" diary-time-regexp))
 	 entries
 	 (org-disable-agenda-to-diary t))
     (save-excursion
-- 
2.24.1