branch: externals/objed
commit c666ceafcf225aae8734a215d0e75c32e52b2c06
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
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)
