diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-13 12:52:43 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-13 12:52:43 +0200 |
commit | 9d00dd4a88bb98e8666c8e5a5744a9b9ef17309a (patch) | |
tree | e06797dc2bbe7f678172dab30610c9781e3a01ff | |
parent | 5212d4fa6bb0039f6cfc5166f02be57106ee7e16 (diff) | |
download | 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.el | 4 |
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) |