branch: elpa/helm
commit 7ecd4b904b3f27285244e19528fea3dbd11f94b9
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Fix helm--get-window-side-state when PA is in use
---
helm-core.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index 9245fb24e21..fe06844496f 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -7493,13 +7493,16 @@ Start swapping in the same order of windows as
window-list."
default))
(defun helm--get-window-side-state ()
- "Return the position of `helm-window' from `helm-current-buffer'.
+ "Return the position of `helm-window' w.r.t main window.
+Main window can be the window handling `helm-current-buffer' but also the
+persistent action window.
Possible values are \\='left \\='right \\='below or \\='above."
(let ((side-list '(left right below above)))
(cl-loop for side in side-list
thereis (and (equal (helm-window)
(window-in-direction
- side (get-buffer-window helm-current-buffer
t)
+ side (or (get-buffer-window
helm-current-buffer t)
+
(helm-persistent-action-display-window))
t))
side))))
