mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:37:51 +00:00
Code Releases Activity

Small fix

Browse source 
* lisp/org.el (org-clone-subtree-with-time-shift): Handle nil shift
  case.
This commit is contained in:
Nicolas Goaziou 2017-01-17 09:59:53 +01:00
parent c31462f33e
commit 181dc50d11
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org.el
View file

@ -8999,7 +8999,8 @@ with the original repeater."
(let* ((end (point)) (let* ((end (point))
(template (buffer-substring beg end)) (template (buffer-substring beg end))
(shift-n (and doshift (string-to-number (match-string 1 shift)))) (shift-n (and doshift (string-to-number (match-string 1 shift))))
(shift-what (pcase (match-string 2 shift) (shift-what (pcase (and doshift (match-string 2 shift))
(`nil nil)
("d" 'day) ("d" 'day)
("w" (setq shift-n (* 7 shift-n)) 'day) ("w" (setq shift-n (* 7 shift-n)) 'day)
("m" 'month) ("m" 'month)