branch: master
commit f357cd2c0a83848b54bfb70b1a704511d7fa80c4
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
ivy-overlay.el (ivy-overlay-cleanup): Restore cursor-type
---
ivy-overlay.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/ivy-overlay.el b/ivy-overlay.el
index 8ed753b..a4eae2e 100644
--- a/ivy-overlay.el
+++ b/ivy-overlay.el
@@ -31,6 +31,8 @@
"Cursor face for inline completion."
:group 'ivy-faces)
+(defvar ivy--old-cursor-type t)
+
(defvar ivy-overlay-at nil
"Overlay variable for `ivy-display-function-overlay'.")
@@ -46,7 +48,7 @@
(when (overlayp ivy-overlay-at)
(delete-overlay ivy-overlay-at)
(setq ivy-overlay-at nil))
- (setq cursor-type t))
+ (setq cursor-type ivy--old-cursor-type))
(defun ivy-overlay-show-after (str)
"Display STR in an overlay at point.
@@ -70,6 +72,8 @@ Hide the minibuffer contents and cursor."
(let ((cursor-pos (1+ (- (point) (minibuffer-prompt-end)))))
(setq cursor-type nil)
(with-ivy-window
+ (when cursor-type
+ (setq ivy--old-cursor-type cursor-type))
(setq cursor-type nil)
(let ((overlay-str
(concat
