Browse Source

Merge branch 'maint'

Nicolas Goaziou 12 years ago
parent
commit
f287ab418d
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lisp/org-agenda.el

+ 2 - 2
lisp/org-agenda.el

@@ -7322,7 +7322,7 @@ Negative selection means regexp must not match for selection of an entry."
 	(move-beginning-of-line 1)))))
 	(move-beginning-of-line 1)))))
 
 
 (defun org-agenda-later (arg)
 (defun org-agenda-later (arg)
-  "Go forward in time by thee current span.
+  "Go forward in time by the current span.
 With prefix ARG, go forward that many times the current span."
 With prefix ARG, go forward that many times the current span."
   (interactive "p")
   (interactive "p")
   (org-agenda-check-type t 'agenda)
   (org-agenda-check-type t 'agenda)
@@ -7334,7 +7334,7 @@ With prefix ARG, go forward that many times the current span."
 	 greg2)
 	 greg2)
     (cond
     (cond
      ((numberp span)
      ((numberp span)
-      (setq sd (+ span sd)))
+      (setq sd (+ (* span arg) sd)))
      ((eq span 'day)
      ((eq span 'day)
       (setq sd (+ arg sd)))
       (setq sd (+ arg sd)))
      ((eq span 'week)
      ((eq span 'week)