From a2c4d3e0e969526beca016219162c91d32d4e633 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 30 Aug 2012 10:56:35 +0200 Subject: [PATCH] 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. --- lisp/org-agenda.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 35d9daba9..2bea9a756 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." -- 2.11.4.GIT