[elpa] externals/objed 5237b4a 022/216: Fix string detection

[Stefan Monnier]

branch: externals/objed
commit 5237b4a65fc3a113a462128a487b91424261d1d7
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Fix string detection
---
 objed-objects.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index abef039..95772d8 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1097,8 +1097,12 @@ If SYN is given use it instead of syntax at point."
 
 (defun objed--bounds-of-string-at-point ()
   "Return bounds of string at point."
-  (let ((beg (objed--in-string-p)))
-    (when beg
+  (let* ((beg (objed--in-string-p))
+        (end (and beg (save-excursion
+                        (goto-char beg)
+                       (when (ignore-errors (forward-sexp 1) t)
+                         (point))))))
+    (when (and beg end)
       (cons beg
             (save-excursion (goto-char beg)
                             (forward-sexp 1)