summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-08-30 10:56:35 +0200
committerBastien Guerry <bzg@altern.org>2012-08-30 10:56:35 +0200
commita2c4d3e0e969526beca016219162c91d32d4e633 (patch)
tree335d5faee63a5f03c2e5c140e65e5f100ef3b4d2
parent1e678d8cbac5819bef47ed5712e05f4f08630025 (diff)
downloadorg-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.el10
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."