emacs-orgmode
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]