From 2a192ff6c1708d183d4e9d038c074cca46e209c5 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 20 Apr 2013 08:51:37 +0200 Subject: [PATCH] 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. --- lisp/org.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index b41185ea1..691f88099 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8395,10 +8395,10 @@ If yes, remember the marker and the distance to BEG." The clones will be inserted as siblings. In interactive use, the user will be prompted for the number of -clones to be produced. When called with a universal prefix argument -and if the entry has a timestamp, the user will also be prompted for -a time shift, which may be a repeater as used in time stamps, for -example `+3d'. +clones to be produced. If the entry has a timestamp, the user +will also be prompted for a time shift, which may be a repeater +as used in time stamps, for example `+3d'. To disable this, +you can call the function with a universal prefix argument. When a valid repeater is given and the entry contains any 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: ") (let ((shift (or shift - (if (and (equal current-prefix-arg '(4)) + (if (and (not (equal current-prefix-arg '(4))) (save-excursion (re-search-forward org-ts-regexp-both (save-excursion