[elpa] externals/objed 77fad58 19/59: If region is activated, deactivate it first on objed-quit

[Clemens Radermacher]

branch: externals/objed
commit 77fad58826aac2836b8262175689de989a8b80c7
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    If region is activated, deactivate it first on objed-quit
---
 objed.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/objed.el b/objed.el
index ca71de9..7c7900a 100644
--- a/objed.el
+++ b/objed.el
@@ -3307,10 +3307,15 @@ on and RANGE hold the object position data."
       (set-marker (cadr range) nil))))
 
 (defun objed-quit ()
-  "Quit and deactivate `objed-map'."
+  "Quit and deactivate.
+
+If region is active deactivate it first."
   (interactive)
-  (setq mark-active nil)
-  (objed--exit-objed))
+  (if mark-active
+      (progn
+        (setq mark-active nil)
+        (objed--init objed--object))
+    (objed--exit-objed)))
 
 (defun objed--check-buffer ()
   "Check if current buffer is still the `objed--buffer'.