summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-10-13 10:52:43 (GMT)
committer Nicolas Goaziou <n.goaziou@gmail.com>2012-10-13 10:52:43 (GMT)
commit9d00dd4a88bb98e8666c8e5a5744a9b9ef17309a (patch)
treee06797dc2bbe7f678172dab30610c9781e3a01ff
parent5212d4fa6bb0039f6cfc5166f02be57106ee7e16 (diff)
downloadorg-mode-9d00dd4a88bb98e8666c8e5a5744a9b9ef17309a.zip
org-mode-9d00dd4a88bb98e8666c8e5a5744a9b9ef17309a.tar.gz
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.
-rw-r--r--lisp/org-agenda.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 39b22cf..bb9901b 100644
--- a/lisp/org-agenda.el
+++ b/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)))))
(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."
(interactive "p")
(org-agenda-check-type t 'agenda)
@@ -7288,7 +7288,7 @@ With prefix ARG, go forward that many times the current span."
greg2)
(cond
((numberp span)
- (setq sd (+ span sd)))
+ (setq sd (+ (* span arg) sd)))
((eq span 'day)
(setq sd (+ arg sd)))
((eq span 'week)