Explorar el Código

Merge branch 'maint'

Nicolas Goaziou hace 12 años
padre
commit
f287ab418d
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  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)