From c7c2ec4bc7797b7c4ae8973606fd5039b34b3412 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 3 Sep 2009 13:53:03 +0200 Subject: [PATCH] Fix Emacs 22 bug in `org-agenda-quit' --- lisp/ChangeLog | 3 +++ lisp/org-agenda.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 39ea0f0a5..2c32b94f3 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-09-03 Carsten Dominik + * org-agenda.el (org-agenda-quit): Provide the window argument for + `window-dedicated-p', Emacs 22 needs it. + * org-exp.el (org-export-cleanup-toc-line): Remove footnote references from TOC lines. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1a5abbac7..3216d8a6c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4802,7 +4802,7 @@ If ERROR is non-nil, throw an error, otherwise just return nil." (interactive) (if org-agenda-columns-active (org-columns-quit) - (if (window-dedicated-p) (delete-other-windows)) + (if (window-dedicated-p (selected-window)) (delete-other-windows)) (let ((buf (current-buffer))) (and (not (eq org-agenda-window-setup 'current-window)) (not (one-window-p)) -- 2.11.4.GIT