diff options
author | Bastien Guerry <bzg@altern.org> | 2012-08-30 10:56:35 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-08-30 10:56:35 +0200 |
commit | a2c4d3e0e969526beca016219162c91d32d4e633 (patch) | |
tree | 335d5faee63a5f03c2e5c140e65e5f100ef3b4d2 | |
parent | 1e678d8cbac5819bef47ed5712e05f4f08630025 (diff) | |
download | org-mode-a2c4d3e0e969526beca016219162c91d32d4e633.tar.gz |
org-agenda.el (org-agenda-goto-date): Fix behavior when using sticky agendas
* org-agenda.el (org-agenda-goto-date): Fix behavior when
using sticky agendas.
Thanks to Charles Philip Chan and Rainer Stengele who reported
problems about this.
-rw-r--r-- | lisp/org-agenda.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 35d9dab..2bea9a7 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6984,7 +6984,15 @@ Negative selection means regexp must not match for selection of an entry." (interactive (list (let ((org-read-date-prefer-future (eval org-agenda-jump-prefer-future))) (org-read-date)))) - (org-agenda-list nil date)) + (let ((org-agenda-sticky-orig org-agenda-sticky) + org-agenda-sticky) + (org-agenda-list nil date) + (setq org-agenda-sticky org-agenda-sticky-orig + org-agenda-this-buffer-is-sticky org-agenda-sticky)) + (let ((inhibit-read-only t)) + (add-text-properties (point-min) (point-max) + `(org-last-cmd + (org-agenda-list nil ,date))))) (defun org-agenda-goto-today () "Go to today." |