From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Feb 1994 07:39:09 +0000 (+0000)
Subject: (mouse-start-end): For double click with START on openparen,
X-Git-Tag: emacs-19.34~9972
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f482eec7710df1a99f252f479cf11dd4cde889e;p=emacs.git

(mouse-start-end): For double click with START on openparen,
start forward scan from START.
---

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)