[elpa] externals/objed c666cea 076/166: Fix some sexp issues

[Clemens Radermacher]

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

    Fix some sexp issues
---
 objed-objects.el | 5 +++--
 objed.el         | 6 ++++--
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 5612182..a60bd2f 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1765,8 +1765,9 @@ comments."
   (let ((bounds (or (objed--at-sexp-p)
                     (save-excursion
                       (ignore-errors
-                        (forward-sexp 1)
-                        (forward-sexp -1)
+                        (let ((real-this-command 'forward-sexp))
+                          (forward-sexp 1)
+                          (forward-sexp -1))
                         (objed--at-sexp-p))))))
 
     (when bounds
diff --git a/objed.el b/objed.el
index 2cd2517..35325c7 100644
--- a/objed.el
+++ b/objed.el
@@ -1029,7 +1029,8 @@ Use `objed-define-dispatch' to define a dispatch 
command.")
                             (eq (char-syntax (char-after)) ?\"))
                           (setq stringp (objed--in-string-p nil t)))
                      (not (ignore-errors
-                            (call-interactively 'forward-sexp)
+                            (let ((real-this-command 'forward-sexp))
+                              (call-interactively 'forward-sexp))
                             t))))
       (if stringp
           (progn (goto-char stringp)
@@ -1049,7 +1050,8 @@ Use `objed-define-dispatch' to define a dispatch 
command.")
                             (eq (char-syntax (char-before)) ?\"))
                           (setq stringp (objed--in-string-p nil t)))
                      (not (ignore-errors
-                            (call-interactively 'backward-sexp)
+                            (let ((real-this-command 'forward-sexp))
+                              (call-interactively 'backward-sexp))
                             t))))
       (if stringp
           (goto-char stringp)