diff --git a/lispy.el b/lispy.el index 6c1e9751..5e65aa6a 100644 --- a/lispy.el +++ b/lispy.el @@ -6218,12 +6218,13 @@ Otherwise return cons of current string, symbol or list bounds." pt)))))) (defun lispy--bounds-list () - "Return the bounds of smallest list that includes the point. -First, try to return `lispy--bounds-string'." + "Return the bounds of smallest list that includes the point." (save-excursion (lispy--exit-string) - (when (memq (char-after) '(?\( ?\[ ?\{)) + (when (looking-at lispy-left) (forward-char)) + (when (lispy-looking-back lispy-right) + (backward-char)) (ignore-errors (let (beg end) (up-list)