mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-17 00:46:25 +00:00
Orgpan: resize the correct window
* contrib/lisp/org-panel.el (orgpan-panel): Make sure the panel buffer is resized to four lines not the document buffer. TINYCHANGE
This commit is contained in:
parent
43f7659664
commit
650748ae43
|
@ -598,12 +598,11 @@ button changes the binding of the arrow keys."
|
||||||
org-mode-map))
|
org-mode-map))
|
||||||
;;(org-back-to-heading)
|
;;(org-back-to-heading)
|
||||||
;;(remove-hook 'window-configuration-change-hook 'orgpan-window-config-change)
|
;;(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))
|
(set-window-buffer (selected-window) (orgpan-make-panel-buffer))
|
||||||
(setq orgpan-panel-window (selected-window))
|
|
||||||
;;(set-window-dedicated-p (selected-window) t)
|
;;(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:
|
;; The minor mode version starts here:
|
||||||
(when orgpan-minor-mode-version
|
(when orgpan-minor-mode-version
|
||||||
(select-window orgpan-org-window)
|
(select-window orgpan-org-window)
|
||||||
|
|
Loading…
Reference in a new issue