瀏覽代碼

org-agenda.el (org-agenda-append-agenda): Fit agenda window to buffer

* org-agenda.el (org-agenda-append-agenda): Fit agenda window
to buffer.
Bastien Guerry 12 年之前
父節點
當前提交
69e99dff07
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-agenda.el

+ 2 - 1
lisp/org-agenda.el

@@ -2575,7 +2575,8 @@ Agenda views are separated by `org-agenda-block-separator'."
     (error "Can only append from within agenda buffer"))
   (let ((org-agenda-multi t))
     (org-agenda)
-    (widen)))
+    (widen)
+    (org-agenda-fit-window-to-buffer)))
 
 (defun org-agenda-normalize-custom-commands (cmds)
   (delq nil