[elpa] externals/objed ec04ce3 182/216: Simplify exit-op logic

[Stefan Monnier]

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

    Simplify exit-op logic
---
 objed.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/objed.el b/objed.el
index 1e383be..8948738 100644
--- a/objed.el
+++ b/objed.el
@@ -2821,14 +2821,16 @@ on."
   ;; TODO: improve exit behaviour for default operations
   (let ((exitf (cdr (assq op objed--exit-alist))))
     ;; (objed--update-current-object)
-    (cond (exitf
-           (if (functionp exitf)
-               (funcall exitf text)
-             (if (eq 'current exitf)
-                 (objed--update-current-object
-                  (objed-make-object :beg (car range)
-                                     :end (cadr range)))
-               (objed--switch-to exitf))))
+    (cond ((functionp exitf)
+           (funcall exitf text))
+          ((eq 'current exitf)
+           (objed--update-current-object
+            (objed-make-object :beg (car range)
+                               :end (cadr range))))
+          ((eq 'exit exitf)
+           (objed--exit-objed))
+          (exitf
+           (objed--switch-to exitf))
           ((or (eq op 'ignore)
                (bound-and-true-p multiple-cursors-mode)))
           (t