- (if
- (and
- (not (window-in-direction 'right nil t -1))
- (not (window-in-direction 'left nil t -1))
- (not (window-in-direction 'below nil t 1)))
- 1
- (if
- (and
- (window-in-direction 'right nil t -1)
- (not (window-in-direction 'left nil t -1))
- (not (window-in-direction 'below nil t 1)))
- 2
- (if
- (and
- (not (window-in-direction 'right nil t -1))
- (window-in-direction 'left nil t -1)
- (not (window-in-direction 'below nil t 1)))
- 3
- (if
- (and
- (window-in-direction 'right nil t -1)
- (not (window-in-direction 'left nil t -1))
- (window-in-direction 'below nil t 1))
- 5
- (if
- (and
- (not (window-in-direction 'right nil t -1))
- (window-in-direction 'left nil t -1)
- (window-in-direction 'below nil t 1))
- 6
- 4))))))
-
+ (cond ((and (not (window-in-direction 'right nil nil -1))
+ (not (window-in-direction 'left nil nil -1))
+ (not (my-below-winow-has-effect-window)))
+ 1)
+ ((and (window-in-direction 'right nil t -1)
+ (not (window-in-direction 'left nil nil -1))
+ (not (my-below-winow-has-effect-window)))
+ 2)
+ ((and (not (window-in-direction 'right nil nil -1))
+ (window-in-direction 'left nil nil -1)
+ (not (my-below-winow-has-effect-window)))
+ 3)
+ ((and (window-in-direction 'right nil nil -1)
+ (not (window-in-direction 'left nil nil -1))
+ (my-below-winow-has-effect-window))
+ 5)
+ ((and (not (window-in-direction 'right nil nil -1))
+ (window-in-direction 'left nil nil -1)
+ (my-below-winow-has-effect-window))
+ 6)
+ (t
+ 4)))