Skip to content

Commit 2a875d9

Browse files
authored
refactor(evil): remove lisp prefix-function embrace pair
A more generalized lisp prefix function was added upstream, so ours is no longer needed. Ref: cute-jumper/embrace.el#26
1 parent e133da7 commit 2a875d9

File tree

1 file changed

+0
-12
lines changed

1 file changed

+0
-12
lines changed

modules/editor/evil/config.el

-12
Original file line numberDiff line numberDiff line change
@@ -245,8 +245,6 @@ directives. By default, this only recognizes C directives.")
245245
:hook (org-mode . embrace-org-mode-hook)
246246
:hook (ruby-mode . embrace-ruby-mode-hook)
247247
:hook (emacs-lisp-mode . embrace-emacs-lisp-mode-hook)
248-
:hook ((lisp-mode emacs-lisp-mode clojure-mode racket-mode hy-mode)
249-
. +evil-embrace-lisp-mode-hook-h)
250248
:hook ((c++-mode c++-ts-mode rustic-mode csharp-mode java-mode swift-mode typescript-mode)
251249
. +evil-embrace-angle-bracket-modes-hook-h)
252250
:hook (scala-mode . +evil-embrace-scala-mode-hook-h)
@@ -284,16 +282,6 @@ directives. By default, this only recognizes C directives.")
284282
embrace--pairs-list))
285283
(embrace-add-pair-regexp ?l "\\[a-z]+{" "}" #'+evil--embrace-latex))
286284

287-
(defun +evil-embrace-lisp-mode-hook-h ()
288-
;; Avoid `embrace-add-pair-regexp' because it would overwrite the default
289-
;; `f' rule, which we want for other modes
290-
(push (cons ?f (make-embrace-pair-struct
291-
:key ?f
292-
:read-function #'+evil--embrace-elisp-fn
293-
:left-regexp "([^ ]+ "
294-
:right-regexp ")"))
295-
embrace--pairs-list))
296-
297285
(defun +evil-embrace-angle-bracket-modes-hook-h ()
298286
(let ((var (make-local-variable 'evil-embrace-evil-surround-keys)))
299287
(set var (delq ?< evil-embrace-evil-surround-keys))

0 commit comments

Comments
 (0)