Browse Source

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.
Bastien Guerry 12 years ago
parent
commit
2a192ff6c1
1 changed files with 5 additions and 5 deletions
  1. 5 5
      lisp/org.el

+ 5 - 5
lisp/org.el

@@ -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
-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
 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