lispy.el (lispy-mark-car): improve

* lispy-test.el (lispy-mark-car): Add test.

Author: abo-abo

lispy-test.el

@@ -990,6 +990,10 @@ Insert KEY if there's no command."
   (should (string= (lispy-with "~;; foo|\n(bar)" (lispy-mark-list 1))
                    "|;; foo\n(bar)")))
 
+(ert-deftest lispy-mark-car ()
+  (should (string= (lispy-with "|\"foo\"~" (lispy-mark-car))
+                   "\"~foo|\"")))
+
 (provide 'lispy-test)
 
 ;;; Local Variables:

lispy.el

@@ -2406,13 +2406,17 @@ Second region and buffer are the current ones."
   (interactive)
   (let ((bnd-1 (lispy--bounds-dwim))
         bnd-2)
-    (goto-char (car bnd-1))
-    (while (and (equal bnd-1 (setq bnd-2 (bounds-of-thing-at-point 'sexp)))
-                (< (point) (cdr bnd-1)))
-      (forward-char))
-    (if bnd-2
-        (lispy--mark bnd-2)
-      (lispy-complain "can't descend further"))))
+    (if (and (eq (char-after (car bnd-1)) ?\")
+             (eq (char-before (cdr bnd-1)) ?\"))
+        (lispy--mark (cons (1+ (car bnd-1))
+                           (1- (cdr bnd-1))))
+      (goto-char (car bnd-1))
+      (while (and (equal bnd-1 (setq bnd-2 (bounds-of-thing-at-point 'sexp)))
+                  (< (point) (cdr bnd-1)))
+        (forward-char))
+      (if bnd-2
+          (lispy--mark bnd-2)
+        (lispy-complain "can't descend further")))))
 
 ;; ——— Locals:  miscellanea ————————————————————————————————————————————————————
 (defvar lispy-mode-x-map (make-sparse-keymap))