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

org.el (org-clone-subtree-with-time-shift): Update behavior 

* org.el (org-clone-subtree-with-time-shift): Unconditionally
ask for a time shift if there is a time-stamp.  Don't ask for
a time shift when called with a universal prefix argument.

Thanks to Ingmar Meissner for raising this issue again.
This commit is contained in:
Bastien Guerry 2013-04-20 08:51:37 +02:00
parent bc8d34541b
commit 2a192ff6c1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -8395,10 +8395,10 @@ If yes, remember the marker and the distance to BEG."
The clones will be inserted as siblings. The clones will be inserted as siblings.
In interactive use, the user will be prompted for the number of In interactive use, the user will be prompted for the number of
clones to be produced. When called with a universal prefix argument clones to be produced. If the entry has a timestamp, the user
and if the entry has a timestamp, the user will also be prompted for will also be prompted for a time shift, which may be a repeater
a time shift, which may be a repeater as used in time stamps, for as used in time stamps, for example `+3d'. To disable this,
example `+3d'. you can call the function with a universal prefix argument.
When a valid repeater is given and the entry contains any time When a valid repeater is given and the entry contains any time
stamps, the clones will become a sequence in time, with time stamps, the clones will become a sequence in time, with time
@ -8420,7 +8420,7 @@ and still retain the repeater to cover future instances of the task."
(interactive "nNumber of clones to produce: ") (interactive "nNumber of clones to produce: ")
(let ((shift (let ((shift
(or shift (or shift
(if (and (equal current-prefix-arg '(4)) (if (and (not (equal current-prefix-arg '(4)))
(save-excursion (save-excursion
(re-search-forward org-ts-regexp-both (re-search-forward org-ts-regexp-both
(save-excursion (save-excursion