mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:07:52 +00:00
org-clone-subtree-with-time-shift: Fix SHIFT check
* lisp/org.el (org-clone-subtree-with-time-shift): Don't choke on a
blank SHIFT argument.
* testing/lisp/test-org.el (test-org/clone-with-time-shift): Add
test.
This fixes a regression introduced by c31462f33
.
This commit is contained in:
parent
4255837c92
commit
1fbc7a424f
|
@ -8990,10 +8990,10 @@ with the original repeater."
|
|||
"Date shift per clone (e.g. +1w, empty to copy unchanged): ")
|
||||
""))) ;No time shift
|
||||
(doshift
|
||||
(or (not (org-string-nw-p shift))
|
||||
(string-match "\\`[ \t]*\\+?\\([0-9]+\\)\\([dwmy]\\)[ \t]*\\'"
|
||||
shift)
|
||||
(user-error "Invalid shift specification %s" shift))))
|
||||
(and (org-string-nw-p shift)
|
||||
(or (string-match "\\`[ \t]*\\+?\\([0-9]+\\)\\([dwmy]\\)[ \t]*\\'"
|
||||
shift)
|
||||
(user-error "Invalid shift specification %s" shift)))))
|
||||
(goto-char end-of-tree)
|
||||
(unless (bolp) (insert "\n"))
|
||||
(let* ((end (point))
|
||||
|
|
|
@ -1365,6 +1365,14 @@
|
|||
(replace-regexp-in-string
|
||||
"\\( [.A-Za-z]+\\)\\( \\+[0-9][hdmwy]\\)?>" "" (buffer-string)
|
||||
nil nil 1))))
|
||||
;; Clone with blank SHIFT argument.
|
||||
(should
|
||||
(string-prefix-p
|
||||
"* H <2012-03-29"
|
||||
(org-test-with-temp-text "* H <2012-03-29 Thu><point>"
|
||||
(org-clone-subtree-with-time-shift 1 "")
|
||||
(buffer-substring-no-properties (line-beginning-position 2)
|
||||
(line-end-position 2)))))
|
||||
;; Find time stamps before point. If SHIFT is not specified, ask
|
||||
;; for a time shift.
|
||||
(should
|
||||
|
|
Loading…
Reference in a new issue