diff options
| author | Nicolas 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) |
| commit | 9d00dd4a88bb98e8666c8e5a5744a9b9ef17309a (patch) | |
| tree | e06797dc2bbe7f678172dab30610c9781e3a01ff | |
| parent | 5212d4fa6bb0039f6cfc5166f02be57106ee7e16 (diff) | |
| download | org-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.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) |