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