[elpa] externals/objed 0fa1ea3 024/166: Default to sexp for continuation object

[Clemens Radermacher]

branch: externals/objed
commit 0fa1ea3e68f1ea5ed763912dd5fcef0086d4240a
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>

    Default to sexp for continuation object
---
 objed.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/objed.el b/objed.el
index ac29d4a..0bf1d3a 100644
--- a/objed.el
+++ b/objed.el
@@ -3509,14 +3509,14 @@ and RANGE hold the object position data."
 
 (defun objed--get-continuation-object (obj)
   "Return continuation object for object OBJ."
-  ;; objects which
-  (cond ((memq obj '(bracket string comment))
-         (setq objed--object 'sexp)
+  ;; white list
+  (cond ((memq obj '(word defun sentence))
          (objed-make-object :beg (point)
                             :end (objed--end (objed--get))))
         (t
+         (objed--switch-to 'sexp)
          (objed-make-object :beg (point)
-                            :end (objed--end (objed--get))))))
+                            :end (objed--end)))))
 
 
 (defun objed-quit ()