[elpa] externals/objed 2701f73 026/166: Fix backward kill for continuation

[Clemens Radermacher]

branch: externals/objed
commit 2701f7379ac83b9324dad70cf349ab56b0c89490
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fix backward kill for continuation
---
 objed.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/objed.el b/objed.el
index 50ca624..f4b30b9 100644
--- a/objed.el
+++ b/objed.el
@@ -3515,9 +3515,8 @@ and RANGE hold the object position data."
   (let ((shifted (memq 'shift (event-modifiers last-input-event))))
     (unless (memq obj '(word defun sentence line))
       (objed--switch-to 'sexp))
-    (objed-make-object :beg (if shifted (objed--beg (objed--get-prev))
-                              (point))
-                       :end (if shifted (point)
+    (objed-make-object :beg (point)
+                       :end (if shifted (objed--beg (objed--get-prev))
                               (objed--end (objed--get))))))
 
 
@@ -3620,7 +3619,11 @@ ON got applied."
              (range (list (set-marker (make-marker) (car range))
                           (set-marker (make-marker) (cadr range)))))
         (prog1 1
-          (apply action range)
+          ;; WHY: if passing the markers, prepend check
+          ;; in kill-region fails.
+          (funcall action
+                   (marker-position (car range))
+                   (marker-position (cadr range)))
           (objed-exit-op exit text range))))))
 
 (defun objed--do-objects (action exit)