From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jonas Bernoulli Subject: [PATCH] Orgpan: resize the correct window Date: Wed, 3 Oct 2012 15:32:42 +0200 Message-ID: <87lifnn089.fsf@bernoul.li> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:38803) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TJPB1-0002UK-A4 for emacs-orgmode@gnu.org; Wed, 03 Oct 2012 09:39:56 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TJPAr-0002tY-O4 for emacs-orgmode@gnu.org; Wed, 03 Oct 2012 09:39:51 -0400 Received: from mail-bk0-f41.google.com ([209.85.214.41]:57375) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TJPAr-0002sE-Gy for emacs-orgmode@gnu.org; Wed, 03 Oct 2012 09:39:41 -0400 Received: by bkcjm1 with SMTP id jm1so5754478bkc.0 for ; Wed, 03 Oct 2012 06:39:40 -0700 (PDT) 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 is resized to four lines not the document buffer. TINYCHANGE --- contrib/lisp/org-panel.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/org-panel.el b/contrib/lisp/org-panel.el index 3ffdfaf..1df3847 100644 --- a/contrib/lisp/org-panel.el +++ b/contrib/lisp/org-panel.el @@ -598,12 +598,12 @@ 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 nil '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)) + (fit-window-to-buffer nil 4 4) ;; The minor mode version starts here: (when orgpan-minor-mode-version (select-window orgpan-org-window) -- 1.7.9.5 Message-ID: <87mx03n090.fsf@bernoul.li>