[elpa] externals/objed d801608 148/216: Cleanup for extend

[Stefan Monnier]

branch: externals/objed
commit d801608a5a6d4d1e7ff188b22135401eeee0bed1
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Cleanup for extend
---
 objed.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/objed.el b/objed.el
index e8b1766..0f33fe2 100644
--- a/objed.el
+++ b/objed.el
@@ -1682,7 +1682,8 @@ Default to sexp at point."
   "Extend current object."
   (interactive)
   (when objed--extend-ov
-    (delete-overlay objed--extend-ov))
+    (delete-overlay objed--extend-ov)
+    (face-remap-remove-relative objed--extend-cookie))
   ;; the region should look like extend object.
   (setq objed--extend-cookie
         (face-remap-add-relative 'region 'objed-extend))
@@ -2667,6 +2668,11 @@ on."
                (objed--switch-to 'line)
              (objed--switch-to 'char)
              (goto-char (objed--beg)))))
+    ;; cleanup
+    (when objed--extend-ov
+      (delete-overlay objed--extend-ov)
+      (setq objed--extend-ov nil)
+      (face-remap-remove-relative objed--extend-cookie))
     (when (and range
                (not (eq exitf 'current)))
       (set-marker (car range) nil)