ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix ambiguous docstrings 

* lisp/org.el (org-at-date-range-p):
(org-at-timestamp-p): Make match data explicit when returning a non-nil
value.
This commit is contained in:
Nicolas Goaziou 2015-08-10 22:31:31 +02:00
parent 408f6da74d
commit a472043b74
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org.el
View File

@ -13147,7 +13147,14 @@ Returns the new TODO keyword, or nil if no state change should occur."
(match-string 2)))) (match-string 2))))
(defun org-at-date-range-p (&optional inactive-ok) (defun org-at-date-range-p (&optional inactive-ok)
"Is the cursor inside a date range?" "Non-nil if point is inside a date range.
When optional argument INACTIVE-OK is non-nil, also consider
inactive time ranges.
When this function returns a non-nil value, match data is set
according to `org-tr-regexp-both' or `org-tr-regexp', depending
on INACTIVE-OK."
(interactive) (interactive)
(save-excursion (save-excursion
(catch 'exit (catch 'exit
@ -17864,7 +17871,14 @@ With prefix ARG, change that many days."
(org-timestamp-change (- (prefix-numeric-value arg)) 'day) 'updown)) (org-timestamp-change (- (prefix-numeric-value arg)) 'day) 'updown))
(defun org-at-timestamp-p (&optional inactive-ok) (defun org-at-timestamp-p (&optional inactive-ok)
"Determine if the cursor is in or at a timestamp." "Non-nil if point is inside a timestamp.
When optional argument INACTIVE-OK is non-nil, also consider
inactive timestamps.
When this function returns a non-nil value, match data is set
according to `org-ts-regexp3' or `org-ts-regexp2', depending on
INACTIVE-OK."
(interactive) (interactive)
(let* ((tsr (if inactive-ok org-ts-regexp3 org-ts-regexp2)) (let* ((tsr (if inactive-ok org-ts-regexp3 org-ts-regexp2))
(pos (point)) (pos (point))