mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-26 04:32:52 +00:00
Code Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Bastien Guerry 2012-08-30 10:56:53 +02:00
parent 5d16834906 a2c4d3e0e9
commit dfe33f9b6e
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/org-agenda.el
View file

@ -6986,7 +6986,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."