Merge branch 'maint'

2017-01-17 10:00:55 +01:00 · 2017-01-17 10:00:55 +01:00 · 1ac8e29605
parent 985ffb13d2 181dc50d11
commit 1ac8e29605
1 changed files with 2 additions and 1 deletions
--- a/lisp/org.el
+++ b/lisp/org.el
@ -8911,7 +8911,8 @@ with the original repeater."
    (let* ((end (point))
 	   (template (buffer-substring beg end))
 	   (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)
 			 ("w" (setq shift-n (* 7 shift-n)) 'day)
 			 ("m" 'month)