Skip to content

Commit 6ce8d1a

Browse files
committed
(ly-raw clojure-dot) always covered by unsafe char rule
lispy.el (lispy--read) (lispy--insert): removed unreachable clojure dot rule, because it is always covered by the unsafe character rule.
1 parent e3507bc commit 6ce8d1a

File tree

1 file changed

+0
-11
lines changed

1 file changed

+0
-11
lines changed

lispy.el

-11
Original file line numberDiff line numberDiff line change
@@ -7542,14 +7542,6 @@ have no special reader syntax.")
75427542
str)
75437543
(delete-region begin end)
75447544
(insert (format "(ly-raw symbol %S)" str))))))
7545-
;; Clojure (. object method)
7546-
(goto-char (point-min))
7547-
(while (re-search-forward "(\\.[\t\n ]" nil t)
7548-
(if (setq cbnd (lispy--bounds-string))
7549-
(goto-char (cdr cbnd))
7550-
(forward-char -1)
7551-
(delete-char -1)
7552-
(insert "(ly-raw clojure-dot)")))
75537545
;; ——— ———————————————————————
75547546
(buffer-substring-no-properties
75557547
(point-min)
@@ -8188,9 +8180,6 @@ The outer delimiters are stripped."
81888180
(delete-region beg (point))
81898181
(insert (format "#'%S" (cl-caddr sxp)))
81908182
(goto-char beg))
8191-
(clojure-dot
8192-
(delete-region beg (point))
8193-
(insert "."))
81948183
(clojure-lambda
81958184
(delete-region beg (point))
81968185
(insert (format "#%S" (cl-caddr sxp)))

0 commit comments

Comments
 (0)