diff options
author | Bastien Guerry <bzg@altern.org> | 2011-08-15 10:06:02 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-08-15 10:06:02 +0200 |
commit | e01ce26c0bed630a1656fde8552e268d477326f8 (patch) | |
tree | 3062fb143e3b853406969d774bea169f8b1aadd2 | |
parent | c6bee1143345f7f3d7427731c474aecf32953ad9 (diff) | |
download | org-mode-e01ce26c0bed630a1656fde8552e268d477326f8.tar.gz |
org.el: set `org-ts-what' correctly in `org-at-timestamp-p'.
(org-at-timestamp-p): set `org-ts-what' in a way that point will be
considered to be "on the bracket" whether it is really on it or right
after it.
Thanks to Matt Lundin for reporting this and to Nicolas Goaziou for
discussion about this.
-rw-r--r-- | lisp/org.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index f40f46c..4de51b9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15586,7 +15586,10 @@ With prefix ARG, change that many days." (setq org-ts-what (cond ((= pos (match-beginning 0)) 'bracket) - ((= pos (1- (match-end 0))) 'bracket) + ;; Point is considered to be "on the bracket" whether + ;; it's really on it or right after it. + ((or (= pos (1- (match-end 0))) + (= pos (match-end 0))) 'bracket) ((org-pos-in-match-range pos 2) 'year) ((org-pos-in-match-range pos 3) 'month) ((org-pos-in-match-range pos 7) 'hour) |