From 6f482eec7710df1a99f252f479cf11dd4cde889e Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 10 Feb 1994 07:39:09 +0000
Subject: [PATCH] (mouse-start-end): For double click with START on openparen,
 start forward scan from START.

---
 lisp/mouse.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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)
-- 
2.39.5