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

    Further work on sexp object
---
 objed-objects.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 5e1e36f..9d00ebb 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1562,13 +1562,16 @@ Ignores simple structured expressions like words or 
symbols."
   (or (ignore-errors
          (forward-sexp 1)
          (forward-sexp -1) t)
-       (ignore-errors
-         (forward-word 1)
-         (forward-sexp -1)
-         t))
+      (ignore-errors
+        (forward-word 1)
+        (forward-sexp -1)
+        t))
   :try-prev
   (or (ignore-errors
-         (forward-sexp -1) t)
+        (forward-sexp -1) t)
+      (ignore-errors
+        (up-list -1)
+        t)
        (ignore-errors
          (forward-word -1)
          t)))

Reply via email to