[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] make 'org-at-date-range-p work like org-at-timestamp-p
From: |
Thomas Plass |
Subject: |
[O] [PATCH] make 'org-at-date-range-p work like org-at-timestamp-p |
Date: |
Fri, 15 Mar 2019 22:13:24 +0100 |
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 <address@hidden>
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
- [O] [PATCH] make 'org-at-date-range-p work like org-at-timestamp-p,
Thomas Plass <=