[elpa] master 7f63f09 04/12: Merge ivy-window into ivy-last

[Oleh Krehel]

branch: master
commit 7f63f09580edbc8f72f09fc2d76fca0aa89c73d2
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Merge ivy-window into ivy-last
    
    * ivy.el (ivy-state): Add a window field.
    (ivy-window): Remove defvar.
    (ivy-next-line-and-call): Update.
    (ivy-previous-line-and-call): Update.
    (ivy-read): Update.
---
 ivy.el |   19 +++++++++----------
 1 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/ivy.el b/ivy.el
index 10b25f5..8ea8334 100644
--- a/ivy.el
+++ b/ivy.el
@@ -119,9 +119,11 @@ Only \"./\" and \"../\" apply here. They appear in reverse 
order."
 
 ;;* Globals
 (cl-defstruct ivy-state
-    prompt collection
-    predicate require-match initial-input
-    history preselect keymap update-fn sort)
+  prompt collection
+  predicate require-match initial-input
+  history preselect keymap update-fn sort
+  ;; The window in which `ivy-read' was called
+  window)
 
 (defvar ivy-last nil
   "The last parameters passed to `ivy-read'.")
@@ -141,9 +143,6 @@ of `history-length', which see.")
 (defvar ivy-text ""
   "Store the user's string as it is typed in.")
 
-(defvar ivy-window nil
-  "Store the window in which `ivy-read' was called.")
-
 (defvar ivy--current ""
   "Current candidate.")
 
@@ -378,7 +377,7 @@ If the input is empty, select the previous history element 
instead."
   (ivy-next-line arg)
   (ivy--exhibit)
   (when ivy--persistent-action
-    (with-selected-window ivy-window
+    (with-selected-window (ivy-state-window ivy-last)
       (funcall ivy--persistent-action ivy--current))))
 
 (defun ivy-previous-line-and-call (&optional arg)
@@ -387,7 +386,7 @@ If the input is empty, select the previous history element 
instead."
   (ivy-previous-line arg)
   (ivy--exhibit)
   (when ivy--persistent-action
-    (with-selected-window ivy-window
+    (with-selected-window (ivy-state-window ivy-last)
       (funcall ivy--persistent-action ivy--current))))
 
 (defun ivy-previous-history-element (arg)
@@ -547,9 +546,9 @@ When SORT is t, refer to `ivy-sort-functions-alist' for 
sorting."
          :preselect preselect
          :keymap keymap
          :update-fn update-fn
-         :sort sort))
+         :sort sort
+         :window (selected-window)))
   (setq ivy--directory nil)
-  (setq ivy-window (selected-window))
   (setq ivy--regex-function
         (or (and (functionp collection)
                  (cdr (assoc collection ivy-re-builders-alist)))