[elpa] externals/objed f28ee01 11/16: Improve sexp object/movement again

[Clemens Radermacher]

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

    Improve sexp object/movement again
---
 objed-objects.el | 2 +-
 objed.el         | 6 ++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 6f2184d..a518e26 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1513,7 +1513,7 @@ comments."
                        (forward-sexp (- arg)))))))
         (let ((zigp nil))
           (when (or (and (not (eobp))
-                         (or (eq (char-syntax (char-before)) ?\s)
+                         (or (memq (char-syntax (char-before)) (list ?\s ?>))
                              (not (eq (char-syntax (char-after)) ?\")))
                          (save-excursion
                            (eq (point) (progn (setq zigp (zigzag 1))
diff --git a/objed.el b/objed.el
index e7f6499..1ebb254 100644
--- a/objed.el
+++ b/objed.el
@@ -911,7 +911,7 @@ Use `objed-define-dispatch' to define a dispatch command.")
   (interactive)
   (while (and (not (eobp))
               (or  (and (not (bobp))
-                        (not (eq (char-syntax (char-before)) ?\s))
+                        (not (memq (char-syntax (char-before)) (list ?\s ?>)))
                         (eq (char-syntax (char-after)) ?\"))
                    (not (ignore-errors
                           (call-interactively 'forward-sexp)
@@ -922,7 +922,9 @@ Use `objed-define-dispatch' to define a dispatch command.")
 (defun objed--backward-sexp ()
   (interactive)
   (while (and (not (bobp))
-              (or  (eq (char-syntax (char-before)) ?\")
+              (or  (and (not (eobp))
+                        (eq (char-syntax (char-before)) ?\")
+                        (not (memq (char-syntax (char-after)) (list ?\s ?>))))
                    (not (ignore-errors
                           (call-interactively 'backward-sexp)
                           t))))