alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-hdrs.el: fix window splitting for emacs-23 compatibility

Browse Source
This commit is contained in:
djcb
2012-04-10 17:56:06 +03:00
parent b2f3610c65
commit 3e723b331a
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
emacs/mu4e-hdrs.el
View File

@ -660,12 +660,15 @@ current window. "
;; is there a window already for the message view? ;; is there a window already for the message view?
(unless (window-live-p viewwin) (unless (window-live-p viewwin)
;; no view window yet; create one, based on the split settings etc. ;; no view window yet; create one, based on the split settings etc.
;; emacs' use of the terms "horizontally" and "vertically"
;; are... suprising. There's a clearer `split-window' in emacs24, but
;; it's not compatible with emacs 23
(setq viewwin (setq viewwin
(cond ;; is there are live window for the message view? (cond ;; is there are live window for the message view?
((eq mu4e-split-view 'horizontal) ;; split horizontally ((eq mu4e-split-view 'horizontal) ;; split horizontally
(split-window nil mu4e-headers-visible-lines 'below)) (split-window-vertically mu4e-headers-visible-lines))
((eq mu4e-split-view 'vertical) ;; split vertically ((eq mu4e-split-view 'vertical) ;; split vertically
(split-window nil mu4e-headers-visible-columns 'right)) (split-window-horizontally mu4e-headers-visible-columns))
(t ;; no splitting; just use the currently selected one (t ;; no splitting; just use the currently selected one
(selected-window))))) (selected-window)))))
;; okay, now we should have a window for the message view ;; okay, now we should have a window for the message view