Просмотр исходного кода

org-agenda: Fix `org-agenda-later' when called with an argument

* lisp/org-agenda.el (org-agenda-later): Fix function when span is
  a number and an argument was provided.  Also fix typo in docstring.
Nicolas Goaziou 13 лет назад
Родитель
Сommit
9d00dd4a88
1 измененных файлов с 2 добавлено и 2 удалено
  1. 2 2
      lisp/org-agenda.el

+ 2 - 2
lisp/org-agenda.el

@@ -7276,7 +7276,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)
@@ -7288,7 +7288,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)