From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jonas Bernoulli Subject: [PATCH 1/2] Orgpan: resize the correct window Date: Sat, 27 Oct 2012 22:07:12 +0200 Message-ID: <1351368433-4558-2-git-send-email-jonas@bernoul.li> References: <87lifnn089.fsf@bernoul.li> <1351368433-4558-1-git-send-email-jonas@bernoul.li> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:60786) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TSCg4-0002N8-Tp for emacs-orgmode@gnu.org; Sat, 27 Oct 2012 16:08:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TSCg3-0000Sh-Fa for emacs-orgmode@gnu.org; Sat, 27 Oct 2012 16:08:16 -0400 Received: from mail-ee0-f41.google.com ([74.125.83.41]:62665) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TSCg3-0000SQ-9I for emacs-orgmode@gnu.org; Sat, 27 Oct 2012 16:08:15 -0400 Received: by mail-ee0-f41.google.com with SMTP id c4so1803143eek.0 for ; Sat, 27 Oct 2012 13:08:14 -0700 (PDT) In-Reply-To: <1351368433-4558-1-git-send-email-jonas@bernoul.li> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Jonas Bernoulli , lennart.borgman@gmail.com * contrib/lisp/org-panel.el (orgpan-panel): Make sure the panel buffer is resized to four lines not the document buffer. TINYCHANGE --- contrib/lisp/org-panel.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/org-panel.el b/contrib/lisp/org-panel.el index 3ffdfaf..95876b4 100644 --- a/contrib/lisp/org-panel.el +++ b/contrib/lisp/org-panel.el @@ -598,12 +598,11 @@ button changes the binding of the arrow keys." org-mode-map)) ;;(org-back-to-heading) ;;(remove-hook 'window-configuration-change-hook 'orgpan-window-config-change) - (split-window) + (setq orgpan-org-window (selected-window)) + (setq orgpan-panel-window (split-window nil -4 'below)) + (select-window orgpan-panel-window) (set-window-buffer (selected-window) (orgpan-make-panel-buffer)) - (setq orgpan-panel-window (selected-window)) ;;(set-window-dedicated-p (selected-window) t) - (fit-window-to-buffer nil nil 3) - (setq orgpan-org-window (next-window)) ;; The minor mode version starts here: (when orgpan-minor-mode-version (select-window orgpan-org-window) -- 1.8.0.rc3.331.g5b9a629