Ver Fonte

Merge branch 'maint'

Nicolas Goaziou há 13 anos atrás
pai
commit
f287ab418d
1 ficheiros alterados com 2 adições e 2 exclusões
  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)