From bc74aecd8d35512119e46736c8f03ad2796adb20 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 16 Feb 2009 19:13:20 +0100 Subject: [PATCH] Agenda: Improve window fitting while making a series of blocks The agenda window was fitted after each partial command, which makes no sense. Now it is only fitted after the final block. --- lisp/ChangeLog | 3 +++ lisp/org-agenda.el | 9 +++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b1b11f33..6847705b7 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,9 @@ property, for sorting. (org-cmp-todo-state): Get the applicable TODO keywords directly from the buffer. + (org-run-agenda-series, org-agenda-list, org-search-view) + (org-todo-list, org-tags-view): Only fit agenda window when the + whole series is done. * org.el (org-scan-tags): Add todo state as property, for sorting. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 50269c70f..11f04c927 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1776,6 +1776,7 @@ s Search for keywords C Configure custom agenda commands (widen) (setq org-agenda-redo-command redo) (goto-char (point-min))) + (org-fit-agenda-window) (org-let (nth 1 series) '(org-finalize-agenda))) ;;;###autoload @@ -2601,7 +2602,7 @@ given in `org-agenda-start-on-weekday'." (setq tbl (apply 'org-get-clocktable p)) (insert tbl))) (goto-char (point-min)) - (org-fit-agenda-window) + (or org-agenda-multi (org-fit-agenda-window)) (unless (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) (goto-char (1- (point-max))) @@ -2811,7 +2812,7 @@ in `org-agenda-text-search-extra-files'." (when rtnall (insert (org-finalize-agenda-entries rtnall) "\n")) (goto-char (point-min)) - (org-fit-agenda-window) + (or org-agenda-multi (org-fit-agenda-window)) (add-text-properties (point-min) (point-max) '(org-agenda-type search)) (org-finalize-agenda) (setq buffer-read-only t))) @@ -2881,7 +2882,7 @@ for a keyword. A numeric prefix directly selects the Nth keyword in (when rtnall (insert (org-finalize-agenda-entries rtnall) "\n")) (goto-char (point-min)) - (org-fit-agenda-window) + (or org-agenda-multi (org-fit-agenda-window)) (add-text-properties (point-min) (point-max) '(org-agenda-type todo)) (org-finalize-agenda) (setq buffer-read-only t))) @@ -2947,7 +2948,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries." (when rtnall (insert (org-finalize-agenda-entries rtnall) "\n")) (goto-char (point-min)) - (org-fit-agenda-window) + (or org-agenda-multi (org-fit-agenda-window)) (add-text-properties (point-min) (point-max) '(org-agenda-type tags)) (org-finalize-agenda) (setq buffer-read-only t)))