Skip to content

Commit 949e6d1

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 311cfd0 commit 949e6d1

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
@@ -7551,14 +7551,6 @@ lispy tries to parse a given sexp.")
75517551
(lambda ()
75527552
(seq-difference
75537553
(match-string 0) lispy--symbol-safe-chars)))
7554-
;; Clojure (. object method)
7555-
(goto-char (point-min))
7556-
(while (re-search-forward "(\\.[\t\n ]" nil t)
7557-
(if (setq cbnd (lispy--bounds-string))
7558-
(goto-char (cdr cbnd))
7559-
(forward-char -1)
7560-
(delete-char -1)
7561-
(insert "(ly-raw clojure-dot)")))
75627554
;; ——— ———————————————————————
75637555
(buffer-substring-no-properties
75647556
(point-min)
@@ -8197,9 +8189,6 @@ The outer delimiters are stripped."
81978189
(delete-region beg (point))
81988190
(insert (format "#'%S" (cl-caddr sxp)))
81998191
(goto-char beg))
8200-
(clojure-dot
8201-
(delete-region beg (point))
8202-
(insert "."))
82038192
(clojure-lambda
82048193
(delete-region beg (point))
82058194
(insert (format "#%S" (cl-caddr sxp)))

0 commit comments

Comments
 (0)