0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-18 20:10:59 +00:00

lisp/org-clock.el: Improve some docstrings

* lisp/org-clock.el (org-clock-save-markers-for-cut-and-paste):
(org-clock-select-task):
This commit is contained in:
Ihor Radchenko 2023-12-25 10:42:12 +01:00
parent a2b09e4aa6
commit f59ac10257
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B

View file

@ -625,7 +625,10 @@ BUFFER."
(push m org-clock-history))) (push m org-clock-history)))
(defun org-clock-save-markers-for-cut-and-paste (beg end) (defun org-clock-save-markers-for-cut-and-paste (beg end)
"Save relative positions of markers in region." "Save relative positions of markers in region BEG..END.
Save `org-clock-marker', `org-clock-hd-marker',
`org-clock-default-task', `org-clock-interrupted-task', and the
markers in `org-clock-history'."
(org-check-and-save-marker org-clock-marker beg end) (org-check-and-save-marker org-clock-marker beg end)
(org-check-and-save-marker org-clock-hd-marker beg end) (org-check-and-save-marker org-clock-hd-marker beg end)
(org-check-and-save-marker org-clock-default-task beg end) (org-check-and-save-marker org-clock-default-task beg end)
@ -651,6 +654,7 @@ BUFFER."
(defun org-clock-select-task (&optional prompt) (defun org-clock-select-task (&optional prompt)
"Select a task that was recently associated with clocking. "Select a task that was recently associated with clocking.
PROMPT is the prompt text to be used, as a string.
Return marker position of the selected task. Raise an error if Return marker position of the selected task. Raise an error if
there is no recent clock to choose from." there is no recent clock to choose from."
(let (och chl sel-list rpl (i 0) s) (let (och chl sel-list rpl (i 0) s)