branch: elpa/evil-goggles
commit dd76fd3d28a79f3f82c3e83164721a990614e82b
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>
Make sure the overlay is cleaned-up
---
evil-goggles.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/evil-goggles.el b/evil-goggles.el
index 73b9ab0d4e..1ffaaf2ff4 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -50,14 +50,16 @@
"Deafult face for the overlay")
(defun evil-goggles--face (command)
+ "Return the configured face for COMMAND, or the default face."
(or
(assoc-default command evil-goggles-faces-alist)
evil-goggles-default-face))
(defun evil-goggles--show (beg end face)
(let ((ov (evil-goggles--make-overlay beg end 'face face)))
- (sit-for evil-goggles-show-for)
- (delete-overlay ov)))
+ (unwind-protect
+ (sit-for evil-goggles-show-for)
+ (delete-overlay ov))))
(defun evil-goggles--make-overlay (beg end &rest properties)
(let ((ov (make-overlay beg end)))
