소스 검색

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 년 전
부모
커밋
2a192ff6c1
1개의 변경된 파일5개의 추가작업 그리고 5개의 파일을 삭제
  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