branch: elpa/helm
commit 6dd04ac8172f6959e1e79656444bc59af37fdcc4
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Use last-command instead of helm--toggle-resplit-window-last-command
---
helm-core.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index cf375a38df1..2ce70a6ad26 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -7307,7 +7307,6 @@ unless FORCE-LONGEST is non nil."
;;
;;
(defvar helm--toggle-resplit-window-iterator nil)
-(defvar helm--toggle-resplit-window-last-command nil)
(defun helm-toggle-resplit-window-forward ()
"Toggle resplit helm window clockwise."
(interactive)
@@ -7349,12 +7348,11 @@ ARG is positive otherwise counterclockwise if negative."
(defun helm--toggle-resplit-window (arg)
(let ((current-state (helm--get-window-side-state))
new-state)
- (unless (and (eq helm--toggle-resplit-window-last-command this-command)
+ (unless (and (eq last-command this-command)
(eq current-state helm--window-side-state))
(setq helm--toggle-resplit-window-iterator
(helm-iter-circular (helm--resplit-window-direction
- current-state arg)))
- (setq helm--toggle-resplit-window-last-command this-command))
+ current-state arg))))
(setq new-state (helm-iter-next helm--toggle-resplit-window-iterator)
helm-split-window-state (helm-acase new-state
((right left) 'horizontal)
