lispy.el (lispy--read): reworked unnecessary (bounds) + (string)

Author: RuijieYu

lispy.el

@@ -7534,12 +7534,13 @@ have no special reader syntax.")
                 (goto-char (point-min))
                 (while (re-search-forward "\\_<\\(?:\\sw\\|\\s_\\)+\\_>" nil t)
                   (unless (lispy--in-string-p)
-                    (unless (string-match
-                             lispy--symbol-safe-chars-regexp
-                             (match-string 0))
-                      (let* ((bnd (lispy--bounds-dwim))
-                             (str (lispy--string-dwim bnd)))
-                        (delete-region (car bnd) (cdr bnd))
+                    (let ((str (match-string 0))
+                          (begin (match-beginning 0))
+                          (end (match-end 0)))
+                      (unless (string-match
+                               lispy--symbol-safe-chars-regexp
+                               str)
+                        (delete-region begin end)
                         (insert (format "(ly-raw symbol %S)" str))))))
                 ;; Clojure (. object method)
                 (goto-char (point-min))