Use proper function name for embark evaluation

This commit is contained in:
Kiana Sheibani 2024-02-27 15:23:07 -05:00
parent dca02fa64c
commit 4f6fc2e5d7
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -1534,9 +1534,9 @@ We'll be using a lot of new actions, so let's set their hooks.
(cl-pushnew #'embark--mark-target (cl-pushnew #'embark--mark-target
(alist-get #'evil-change embark-around-action-hooks)) (alist-get #'evil-change embark-around-action-hooks))
(cl-pushnew #'embark--mark-target (cl-pushnew #'embark--mark-target
(alist-get #'+eval:region embark-around-action-hooks)) (alist-get #'+eval/region embark-around-action-hooks))
(cl-pushnew #'embark--mark-target (cl-pushnew #'embark--mark-target
(alist-get #'+eval:replace-region embark-around-action-hooks)) (alist-get #'+eval/region-and-replace embark-around-action-hooks))
(cl-pushnew #'embark--beginning-of-target (cl-pushnew #'embark--beginning-of-target
(alist-get #'backward-word embark-pre-action-hooks)) (alist-get #'backward-word embark-pre-action-hooks))
@ -1675,9 +1675,9 @@ Here's the big one.
"k" #'backward-list "k" #'backward-list
"h" #'backward-up-list "h" #'backward-up-list
"=" #'indent-region "=" #'indent-region
"RET" #'+eval:region "RET" #'+eval/region
"e" #'+eval:region "e" #'+eval/region
"E" #'+eval:replace-region "E" #'+eval/region-and-replace
"TAB" nil "<" nil "u" nil "n" nil "p" nil) "TAB" nil "<" nil "u" nil "n" nil "p" nil)
(:map embark-defun-map (:map embark-defun-map
"c" #'evil-change "c" #'evil-change
@ -1688,9 +1688,9 @@ Here's the big one.
(:map embark-variable-map (:map embark-variable-map
"Y" #'embark-save-variable-value "Y" #'embark-save-variable-value
"K" #'helpful-variable "K" #'helpful-variable
"RET" #'+eval:region "RET" #'+eval/region
"e" #'+eval:region "e" #'+eval/region
"E" #'+eval:replace-region "E" #'+eval/region-and-replace
"i" #'embark-insert-variable-value "i" #'embark-insert-variable-value
"v" #'mark "v" #'mark
"c" #'evil-change "c" #'evil-change