mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-15 17:00:45 +00:00
Code

Agenda: Improve window fitting while making a series of blocks

Browse Source 
The agenda window was fitted after each partial command, which makes
no sense.  Now it is only fitted after the final block.
This commit is contained in:
Carsten Dominik 2009-02-16 19:13:20 +01:00
parent b44e3d05ee
commit bc74aecd8d
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

9
lisp/org-agenda.el
View File

@ -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)))