(mouse-start-end): Support selecting strings by double

clicking on a character with quote syntax.

1 files changed, 25 insertions, 0 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 41fda55689b..23f5c192e3f 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -651,6 +651,31 @@ If DIR is positive skip forward; if negative, skip backward."
 		 (backward-sexp 1)
 		 (point))
 	       (1+ start)))
+	((and (= mode 1)
+              (= start end)
+	      (char-after start)
+              (= (char-syntax (char-after start)) ?\"))
+	 (let ((open (or (eq start (point-min))
+			 (save-excursion
+			   (goto-char (- start 1))
+			   (looking-at "\\s(\\|\\s \\|\\s>")))))
+	   (if open
+	       (list start
+		     (save-excursion
+		       (condition-case nil
+			   (progn 
+			     (goto-char start)
+			     (forward-sexp 1)
+			     (point))
+			 (error end))))
+	     (list (1+ start)
+		   (save-excursion
+		     (condition-case nil
+			 (progn
+			   (goto-char (1+ start))
+			   (backward-sexp 1)
+			   (point))
+		       (error end)))))))
         ((= mode 1)
 	 (list (save-excursion
 		 (goto-char start)