[PATCH] make 'org-at-date-range-p work like org-at-timestamp-p

[thunk2@arcor.de (Thomas Plass)]

Hello maintainers,

it's counter-intuitive that 'org-at-date-range-p doesn't work like
'org-at-timestamp-p when point is on the leading bracket of a range.
Witness (^ = point)

<2019-12-30 Mo 12:00>
^ (org-at-timestamp-p)                            => t

<2019-12-30 Mo 12:00>--<2019-12-31 Di 09:00>
^ (org-at-timestamp-p)                            => t
 ^ (org-at-date-range-p)                          => t
^ (org-at-date-range-p)                           => nil

Is the attached patch OK?

Regards,

Thomas


From 11424a8a8f975148a6914ba324b7e34218fed30d Mon Sep 17 00:00:00 2001
From: Thomas Plass <thunk2@arcor.de>
Date: Fri, 15 Mar 2019 22:56:01 +0200
Subject: [PATCH] * make 'org-at-date-range-p work like org-at-timestamp-p  
 when point is on starting bracket

---
 lisp/org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 24e1549a2..2053ae6b7 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10651,7 +10651,7 @@ on INACTIVE-OK."
   (save-excursion
     (catch 'exit
       (let ((pos (point)))
-	(skip-chars-backward "^[<\r\n")
+	(or (looking-at-p "[<[]") (skip-chars-backward "^[<\r\n"))
 	(skip-chars-backward "<[")
 	(and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
 	     (>= (match-end 0) pos)
-- 
2.13.1.windows.2