tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2012-08-28 18:29:37 +02:00
parent 3f5ded8523 04526ae0de
commit 521deb3302
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/org-agenda.el
View File

@ -1905,7 +1905,7 @@ When nil, `q' will kill the single agenda buffer."
org-agenda-info
org-agenda-tag-filter-overlays
org-agenda-cat-filter-overlays
org-pre-agenda-window-conf
org-agenda-pre-window-conf
org-agenda-columns-active
org-agenda-tag-filter
org-agenda-category-filter
@ -3302,7 +3302,7 @@ removed from the entry content. Currently only `planning' is allowed here."
(defvar org-agenda-multi nil) ; dynamically scoped
(defvar org-agenda-buffer-name "*Org Agenda*")
(defvar org-pre-agenda-window-conf nil)
(defvar org-agenda-pre-window-conf nil)
(defvar org-agenda-columns-active nil)
(defvar org-agenda-name nil)
(defvar org-agenda-tag-filter nil)
@ -3372,8 +3372,8 @@ generating a new one."
;; buffer via elisp link
(unless (equal (current-buffer) abuf)
(org-pop-to-buffer-same-window abuf))
(setq org-pre-agenda-window-conf
(or org-pre-agenda-window-conf wconf))))
(setq org-agenda-pre-window-conf
(or org-agenda-pre-window-conf wconf))))
(defun org-agenda-prepare (&optional name)
(if (org-agenda-use-sticky-p)
@ -6535,9 +6535,9 @@ If ERROR is non-nil, throw an error, otherwise just return nil."
;; Maybe restore the pre-agenda window configuration.
(and org-agenda-restore-windows-after-quit
(not (eq org-agenda-window-setup 'other-frame))
org-pre-agenda-window-conf
(set-window-configuration org-pre-agenda-window-conf)
(setq org-pre-agenda-window-conf nil))))
org-agenda-pre-window-conf
(set-window-configuration org-agenda-pre-window-conf)
(setq org-agenda-pre-window-conf nil))))
(defun org-agenda-quit ()
"Exit agenda by killing agenda buffer or burying it when
@ -6558,9 +6558,9 @@ If ERROR is non-nil, throw an error, otherwise just return nil."
;; Maybe restore the pre-agenda window configuration.
(and org-agenda-restore-windows-after-quit
(not (eq org-agenda-window-setup 'other-frame))
org-pre-agenda-window-conf
(set-window-configuration org-pre-agenda-window-conf)
(setq org-pre-agenda-window-conf nil))))
org-agenda-pre-window-conf
(set-window-configuration org-agenda-pre-window-conf)
(setq org-agenda-pre-window-conf nil))))
(org-agenda-Quit))))
(defun org-agenda-exit ()