Don't override embrace's default f pair #1285
This should really be resolved upstream, but until it is this should ensure our custom `f` pair for lisp doesn't end up deleting the global `f` pair.
This commit is contained in:
parent
132ad7d391
commit
9e24db7ed3
1 changed files with 6 additions and 1 deletions
|
@ -200,7 +200,12 @@ line with a linewise comment.")
|
||||||
(embrace-add-pair-regexp ?l "\\[a-z]+{" "}" #'+evil--embrace-latex))
|
(embrace-add-pair-regexp ?l "\\[a-z]+{" "}" #'+evil--embrace-latex))
|
||||||
|
|
||||||
(defun +evil|embrace-lisp-mode-hook ()
|
(defun +evil|embrace-lisp-mode-hook ()
|
||||||
(embrace-add-pair-regexp ?f "([^ ]+ " ")" #'+evil--embrace-elisp-fn))
|
(push (cons ?f (make-embrace-pair-struct
|
||||||
|
:key ?f
|
||||||
|
:read-function #'+evil--embrace-elisp-fn
|
||||||
|
:left-regexp "([^ ]+ "
|
||||||
|
:right-regexp ")"))
|
||||||
|
embrace--pairs-list))
|
||||||
|
|
||||||
;; Add escaped-sequence support to embrace
|
;; Add escaped-sequence support to embrace
|
||||||
(setf (alist-get ?\\ (default-value 'embrace--pairs-list))
|
(setf (alist-get ?\\ (default-value 'embrace--pairs-list))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue