(mouse-start-end): For double click with START on openparen,

start forward scan from START.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 137fd54d189..64f188928c8 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -290,7 +290,11 @@ If DIR is positive skip forward; if negative, skip backward."
               (= start end)
               (char-after start)
               (= (char-syntax (char-after start)) ?\())
-         (list start (save-excursion (forward-sexp 1) (point))))
+         (list start
+               (save-excursion
+                 (goto-char start)
+                 (forward-sexp 1)
+                 (point))))
         ((and (= mode 1)
               (= start end)
               (char-after start)